excel sayfalarını birleştirme

[Onurssssss]

Merhaba,

aynı çalışma kitabında olan farklı sayfalardaki verilerin özet tablo yazdığım yerde tek bir sayfada toplanmasını yapmak istiyorum.

teşekkürler

 

[N.Ziya Hiçdurmaz]

Merhaba, bir module kopyalayıp deneyiniz.

Sub sayfa_birlestir()
Set sayfa = Sheets("ÖZET TABLO")
sayfa.Range("a2:m" & Rows.Count).Clear
s = 2
For i = 1 To Sheets.Count
For sat = 2 To Sheets(i).Cells(Rows.Count, "a").End(xlUp).Row
If Sheets(i).Name <> "ÖZET TABLO" Then
Range(sayfa.Cells(s, "a"), sayfa.Cells(s, "m")) = Range(Sheets(i).Cells(sat, "a"), Sheets(i).Cells(sat, "m")).Value
s = s + 1
End If
Next
Next
End Sub