Sayfaları birleştirmek

[mekist]

Merhaba Üstadlar,

Excelde 1 kitapta 8 sayfa var.7 sinde veri var.
Ben bu 7 sayfayı 8. sayfada alt alta getirmek istiyorum.
Her sayfa "A1" den başlıyor "E?"e kadar devam ediyor.Her sayfa farklı yerlerde bitiyor.Kimisi 500 satır kimisi 600 satır.Hepsini tek sayfada nasıl birleştirebiliriz.

 

[dEdE]

Merhaba,
Aşağıdaki kodları bir modüle yapıştırın ve çalıştırın.

Sub SayfaBirleştir()

With Worksheets("Sayfa8")
    For i = 1 To Worksheets.Count - 1
    Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
    Next
End With

End Sub

 

[mekist]

Merhaba,
Aşağıdaki kodları bir modüle yapıştırın ve çalıştırın.

Sub SayfaBirleştir()

With Worksheets("Sayfa8")
    For i = 1 To Worksheets.Count - 1
    Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
    Next
End With

End Sub

Teşekkür ederim eline sağlık.Tam istediğim gibi

 

[dEdE]

Rica ederim. Yardımcı olabildimse mutlu olurum.