sayfa birleştirme

[asaf.]

dosyada 100 sayfa var bunlar tek syfada nasıl birleştırırım

 

[tahsinanarat]

Bununla ilgili sitede bol miktarda örnek mevcut,
Necdet Yesertener hocamın bu konu ile ilgili kodu aşağıdadır


Sub SayfalariBirlestir()
Dim SayfaNo As Integer, Kolon As Integer
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Hepsi")
Application.ScreenUpdating = False
s1.Select
Kolon = [IV1].End(1).Column
Range(Cells(2, "A"), Cells(65536, Kolon)).ClearContents
For SayfaNo = 1 To Sheets.Count
If Sheets(SayfaNo).Name <> "Hepsi" Then
Set s2 = Sheets(SayfaNo)
s2.Select
Range(Cells(2, "A"), Cells([A65536].End(3).Row, Kolon)).Copy s1.Range("A" & s1.[A65536].End(3).Row + 1)
End If
Next SayfaNo
s1.Select
Application.ScreenUpdating = True
MsgBox "Sayfalar Birleştirilmiştir", vbInformation, "<a href="http://www.ewcel.web.tr/" target="_blank">www.ewcel.web.tr</a>"
End Sub