PDA

View Full Version : Fill-out column with another columns-info



holo man
2011-08-08, 08:42 AM
I come to this macro, because its alike to what I want.

Sub Enncolumnar()

Dim C As Range
For Each C In Selection
If IsEmpty(C.Offset(1)) Then
C.Copy Range("p" & Cells.Rows.Count).End(xlUp).Offset(1)
Else
Range(C, C.End(xlDown)).Copy Range("p" & Cells.Rows.Count).End(xlUp).Offset(1)
End If
Next C

End Sub

Is there a method to alter this in order that the selection is completed in a column in place of a row, in addition columns on others worksheets?

Bob Phillips
2011-08-08, 08:56 AM
Do you mean transpose the data, or just copy the next block horizontally?