Sütunlardaki verileri tek bir sütunda birleştirmek

[ASLAN7410]

Merhaba herkese hayırlı iftarlar.

Ekte gönderdiğim excel dosyamın Sayfa1'de sütunlarda çeşitli uzunluklarda veriler var.

Benim yapmak istediğim Sayfa1'deki verileri Sayfa2'ye sadece A sütununa alt alta gelecek
şekilde birleştirmek istiyorum.
.

 

[ASLAN7410]

Arkadaşlar bu işlemi elle yapıyorum ancak çok zaman alıyor.

Sistemden aldığım veriler sütun sütun olarak geldiği için ve sütunlarda bazen veriler BZ sütununa kadar ulaşıyor.

Verileri tek bir sütunda birleştirme gibi bir çalışma bulamadım.

Yardımcı olur musunuz?

 

[Orion1]

Buyurun.

Sub aktar59()
Dim j As Byte, i As Long, sat As Long, sh As Worksheet
Set sh = Sheets("Sayfa2")
sh.Range("A:A").ClearContents
sat = 1
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For j = 1 To 9
    For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
        sh.Cells(sat, "A").Value = Cells(i, j).Value
        sat = sat + 1
    Next
Next
Application.ScreenUpdating = True
sh.Select
Set sh = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ASLAN7410]

Sayın Evren Bey, hayırlı iftarlar.

Göndermiş olduğunuz kod gayet güzel çalışıyor, ellerinize sağlık, bazen veriler BZ sütununa kadar ulaşıyor, bu durumda kodda nerede bir değişiklik yapmam gerekir.

 

[Orion1]

Sayın Evren Bey, hayırlı iftarlar.

Göndermiş olduğunuz kod gayet güzel çalışıyor, ellerinize sağlık, bazen veriler BZ sütununa kadar ulaşıyor, bu durumda kodda nerede bir değişiklik yapmam gerekir.

Buyurun.

Sub aktar59()
Dim j As Integer, i As Long, sat As Long, sh As Worksheet
Dim sat2 As Integer
Set sh = Sheets("Sayfa2")
sh.Range("A:A").ClearContents
sat = 1
sat2 = 1
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
For j = 1 To Cells(sat2, Columns.Count).End(xlToLeft).Column
    For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
        sh.Cells(sat, "A").Value = Cells(i, j).Value
        sat = sat + 1
    Next
    sat2 = sat2 + 1
Next
Application.ScreenUpdating = True
sh.Select
Set sh = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı ramazanlar.

 

[Orion1]

Sayın Evren Bey, ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Hayırlı ramazanlar.

Rica ederim.
İyi çalışmalar.