Soru tüm sayfaları tek bir sayfada toplama makrosu

[bitterçikolata]

Merhaba,

Birden fazla excel sayfası içeren bir excel dosyam var. Tek bir sayfada tüm veriyi toplamak istiyorum. Tüm sayfalar aynı sütünları içeriyor ama verileri farklı sayıda. elimde kodum var ama yalnızca 2 sayfayı kısıtlı sayıda birleştirebiliyor. yardımcı olabilir misiniz?

Teşekkürler

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Ana"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A2")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
Sheets("Ana").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Linkteki makale işinize yarayabilir.

Sayfaları Birleştirme

 

[Korhan Ayhan]

Ek olarak linkleri inceleyebilirsiniz.

 

[orkunozbudak]

Selamlar acaba sayfa isimlerinide birleştirirken yazdırabilirmiyiz?