Tabloları birleştirmek

[sandokan]

Aylara göre tabloları bir yerde toplamak istiyorum

yardımınızı bekliyorum

 

[N.Ziya Hiçdurmaz]

yanıt

Sub teksayfayagetir()
Dim sat, s As Long
Sayfa1.[a1:o50000].Clear
s = 1
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
    For sat = 3 To Sheets(i).Cells(65536, "o").End(xlUp).Row
       Range(Sheets(i).Cells(sat, "a"), Sheets(i).Cells(sat, "o")).Copy _
       Sayfa1.Cells(s, "a")
       s = s + 1
    Next: Next
Application.ScreenUpdating = True
End Sub

 

[sandokan]

çok teşekkür ederim emeğine sağlık..tam istedigim gibi olmus..