Sayfa birleştirme

[hezarpare]

ÜStadlar kolay gelsin. Çalışma kitabımda birden fazla sayfa var ve sayfalardaki tabloların taslağı hep aynı. Tüm sayfaları bir sayfa altında kod ile birleştirmek istiyorum. Birleştirirken sayfalardaki 1. ve 2. satırı almayacak.
----------
Bu konuyu diğer sorular altına açmıştım ama vba olduğu için buraya taşımanın daha mantıklı olacağını düşündüm.

 

[hezarpare]

Bu arada forumda arama yaptım ve çeşitli kodları kullandım ama hepsi hüsranla sonuçlandı

 

[dEdE]

Merhaba,
Aşağıdaki kodu Modüle yapıştırarak dener misiniz?

Sub Birleştir()
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Birleştirme" Then
        ss1 = Sheets(i).Cells.Find("*", , , , xlByRows, xlPrevious).Row
        ss2 = Sheets("Birleştirme").Range("A" & Rows.Count).End(3).Row + 1
        Sheets(i).Range("A3" & ":W" & ss1).Copy _
            Sheets("Birleştirme").Range("A" & ss2 & ":W" & ss2 + ss1)
    End If
Next
MsgBox "Sayfaları Birleştirme Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub