Aynı çalışma kitabındaki birden fazla sayfayı tek sayfa birleştirmek

[sinekvalesi]

Sayın Arkadaşlar;

Ekteki çalışma kitabımda birden fazla çalışma sayfası var. Ben bu sayfadaki verileri tek bir sayfaya alt alta getirmek istiyorum. Bu konuyla ilgili yardımcı olabilirseniz çok sevinirim.

İlginiz için şimdiden teşekkür eder, iyi çalışmalar dilerim.


Saygılarımla;

 

[Necdet]

Merhaba,

Tüm sayfaların 31 satır olduğu varsayımına göre :

Sub TekSayfadaTopla()
Dim Sat As Long
Dim Syf As Integer
Sheets("Liste").Select
Application.ScreenUpdating = False
Range("A2:K65536").ClearContents
For Syf = 2 To Sheets.Count
    Sat = [K65536].End(3).Row + 1
    Sheets(Syf).Range("A2:K31").Copy Cells(Sat, "A")
Next Syf
Application.ScreenUpdating = True
MsgBox "Sayfaları Birleştirdim.."
End Sub

 

[sinekvalesi]

Sayın Necdet Yeşertener;

Yardımlarınızdan dolayı çok teşekkür ederim. İşimi çok kolaylaştırdınız.

İyi çalışmalar dilerim.

Saygılarımla.

 

[Necdet]

Saygı benden, güle güle kullanınız.

Daha nice kolaylıklara diyelim.

 

[ilkerkayaoglu]

Elinize sağlık Necdet Bey gerçekten çok işime yaradı...

Her işiniz benimkini kolaylaştırığı gibi kolaylaşsın

 

[sezengin]

57 tane çalışma sayfasından ilk satır verilerini yeni bir sayfada alt alta sıralmak istiyorum. ama bu makro çalışmadı.
Sheets("Liste").Select
satırı sarı renk oluyor.