Fill-out column with another columns-info

H

holo man

Guest
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

Super Moderator
Staff member
Joined
Mar 21, 2011
Messages
1,942
Reaction score
0
Points
36
Excel Version(s)
O365
Do you mean transpose the data, or just copy the next block horizontally?
 
Top