DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Selamlar
Excelde eğer ayrı ayrı çalışma kitabından bahsediyorsanız o ayrı, Ama tek bir dosya içinde çalışma sayfasından bahsediyorsanız. 270 sayfa olma ihtimali yok. Çünkü bir dosyada en fazla 255 adet çalışma sayfası olur.
Sub Birlestir()
Dim sh As Worksheet, _
ana As Worksheet, _
i As Long
Set ana = Sheets("Anasayfa")
Application.ScreenUpdating = False
For Each sh In Worksheets
If Not sh.Name = "Anasayfa" Then
i = ana.Cells(Rows.Count, "A").End(3).Row + 1
sh.Range("A1").CurrentRegion.Offset(3).Copy ana.Cells(i, "A")
End If
Next sh
Application.ScreenUpdating = True
End Sub