Soru Dosyaları Alt Alta Birleştir Makros Yardım

[bulentkars]

Arkadaşlar Herkese Merhaba,

Aşağıdaki kod ile klasör içerisindeki tüm xlsx dosyaları alt alta kopyalıyorum, ancak klasörün içerisindeki örneğin 5 dosya varsa alt alta yapıştırma yaparken üst satırlarda geliyor, ben bu kodda sadece birinci dosyanın başlığı gelsin, diğer dosyaların başlığının birleştirmede gelmesini istemiyorum. Bu konuda yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.

Sub Dosyaları_Birleştir()



    Dim say As Long
    Dim say2 As Long
    Dim Dosya As String
    
    Dosya = Dir("C:\MUTABAKAT\*.XLSX")
    
    Do Until Dosya = ""
        Workbooks.Open "C:\MUTABAKAT\" & Dosya
        say = WorksheetFunction.CountA(Range("e:e"))
        
        say2 = WorksheetFunction.CountA(ThisWorkbook.Worksheets("SAYFA1").Range("e:e")) + 1
        Range("A1:L" & say).Copy ThisWorkbook.Worksheets("SAYFA1").Range("A" & say2)
        
        Dosya = Dir
        ActiveWorkbook.Close False
    Loop
End Sub

 

[mesudiye_052]

Merhabalar

Sub Dosyaları_Birleştir()

    Dim say As Long
    Dim say2 As Long
    Dim Dosya As String
    Dim sayac As Long
    
    Dosya = Dir("C:\MUTABAKAT\*.XLSX")
    
    Do Until Dosya = ""
        Workbooks.Open "C:\MUTABAKAT\" & Dosya
        say = WorksheetFunction.CountA(Range("e:e"))
        
        say2 = WorksheetFunction.CountA(ThisWorkbook.Worksheets("SAYFA1").Range("e:e")) + 1
        
        sayac = sayac + 1
        If sayac = 1 Then
            Range("A1:L" & say).copy ThisWorkbook.Worksheets("SAYFA1").Range("A" & say2)
        Else
            Range("A2:L" & say).copy ThisWorkbook.Worksheets("SAYFA1").Range("A" & say2)
        End If
        
        Dosya = Dir
        ActiveWorkbook.Close False
    Loop
End Sub

 

[bulentkars]

Merhaba,

Çok teşekkür ederim elinize sağlık...