Hi
i came across this macro, since its similar to what i want

Sub Encolumnar()
Dim C As Range
[p]. Delete
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 way to change this so that the selection is made in a column instead of a row, plus other columns on others sheets? :S

The main objective was to do something like this without macros, but if it cant then i'll use this macro.

The main idea here is in the excel im adding

Attached Files

example.xlsx (10.3 KB, 16 views)