Tüm Sayfaları Birleştirmek

[htsumer]

Çalışma kitabında 30 kadar sayfa var.Hepsi aynı formatta..aşağıdaki kod ile tek sayfaya almak istiyorum ama kırmızı satırda hata veriyor..

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Sayfa1").Select 'birleştirmek istediğiniz sayfa
Range("A2:Z65536").ClearContents
For i = 1 To Sheets.Count - 1
SonSatır = Sheets(i).[A65536].End(3).Row
Satır = [A65536].End(3).Row + 1
Sheets(i).Range("A2:Z" & SonSatır).Copy Range("A" & Satır)
Next i
SonSatır = [A65536].End(3).Row
[COLOR=red]Range("A2:Z" & SonSatır).Sort Key1:=[Z2], order1:=xlAscending[/COLOR]
End Sub

 

[Daerohn]

bunum için makro kullanamdan yapoabileceğiniz bir yöntem var,

öncelikle her sayfada birleştirmek istediğiniz alanlara ad veriyorsunuz, sonra veri menüsünden birleştir komutunu kullanıyorsunuz, işlev kısmına "toplam" deyip tanımladığınız adları ekliyorsunuız ve birleştirme işlemini tamamlıyorsunuz. bu yöntemin tek sorunu aralarda toplam değerlerinin yer aldığı ekstra satırların çıkması. bunları da süzerek silerseniz işlem tamamdır

 

[htsumer]

Teşekkür ederim..