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?
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?