Farklı Excel Sayfalarını Birleştirme

[mor45]

Dosyam da olan makro ile birden fazla sayfayı birleştirmek istedim
Tek Ana sayfa olarak bir sayfada birleştirmesini istiyorum ama çalışmadı.
Hata nerde olabilir yardımlarınızı bekliyorum.

 

[mor45]

Dosyayı nereye kaydetmeliyim.

 

[muygun]

Merhaba;
Altın üye değilseniz ;
http://dosya.co/
adresine yükleyerek link adresini burada paylaşabilirsiniz.

 

[mor45]

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:10000").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

Makro ekte

 

[muygun]

Syn.mor45

Dosyanızda isim tc vs gibi özel bilgiler var. Dosyanızı ve linkini kaldırın.