Sütunlardaki verileri tek bir sütunda toplama

[ANKARA1974]

Sayfa1 deki sütunları makro ile Sayfa2 ye tek sutun olarak nasıl alabilirim?
İyi çalışmalar.

 

[dEdE]

Merhaba,
Ekli Dosyayı inceler misiniz?

 

[ersoyalan]

Merhaba,



Sub aktar()
Dim c As Long
Sheets(1).Activate
For c = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
Range(Cells(2, c), Cells(2, c).End(xlDown)).Copy _
Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
Next c

End Sub

 

[ANKARA1974]

Sayın Dede ve Sayın Ersoyalan birbirinden güzel iki çözüm için çok teşekkür ederim.

 

[ersoyalan]

Günaydın.

Rica ederiz.