Makro ile farklı excellerden aldığım verileri alt alta tek bir sayfaya kopyalamak

[yunus_glr]

Merhabalar;

https://wetransfer.com/downloads/4a...5b925ac18b77d18c45bc6d4420200326073521/86f458

Ekte örnek olarak hazırladığım LÜYTOB(i) sayfalarında yer alan A2:H745 veri aralığını kopyalayıp LİSTE sayfasına alt alta yapıştırarak tek bir sayfada toplamak istiyorum.

Hangi kodları kullanmam gerekmektedir?
Teşekkür ederim.

İyi çalışmalar...
Saygılarımla.

 

[bmutlu966]

LİSTE sayfanızın ismini Liste Olarak değiştirin ve aşağıdaki kodları kullanın.

Sub Birlestir()
    Dim i, Sayf, SonSat1, SonSat2
    Application.ScreenUpdating = False
    Range("A2:H65000").ClearContents
    For i = 1 To Sheets.Count
        Set Sayf = Sheets(i)
        If Sayf.Name <> "Liste" Then
            SonSat1 = Cells(Rows.Count, 1).End(3).Row + 1
            SonSat2 = Sayf.Cells(Rows.Count, "A").End(3).Row
            
            Range(Cells(SonSat1, "A"), Cells((SonSat1 + SonSat2) - 2, "H")).Value = _
            Sayf.Range(Sayf.Cells(2, "A"), Sayf.Cells(SonSat2, "H")).Value
            
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Islem Tamam..."
End Sub

 

[yunus_glr]

Hocam, elinize sağlık çok teşekkür ediyorum.