Çoklu sayfalardaki verileri bir sayfada toplama

[sekingen]

Ekteki çalisma kitabimin sayfa formatlari aynidir. Sayfa1 sayfasindaki ornekte olduğu gibi butun diger sayfalarin ayni hucre adindaki verileri sayfa1 sayfasina alt alta yazdirmak istiyorum..yardim ederseniz sevinirim..

 

[Baggwell]

Merhaba, aşağıdaki kod size yardımcı olacaktır. Bende kullanıyorum

Kodlar Sn.Yakup beye aittir.

Sub secret_memory()
Dim a As Integer
Dim son As Integer
Dim son1 As Long
Dim s As Worksheet

Sheets.Add after:=Sheets(Sheets.Count)
Set s = Sheets(Sheets.Count)

For a = 1 To Sheets.Count - 1
    son = Sheets(a).Range("A65536").End(xlUp).Row
    son1 = s.Range("A65536").End(xlUp).Row + 1
    Sheets(a).Rows("7:" & son).Copy s.Rows(son1)
Next a
Sheets(1).Rows("1:6").Copy
s.Rows(1).Insert
s.Rows(7).Delete
s.Move
MsgBox "İşlem tamamlandı, sayfalar birleştirildi." & vbNewLine & "Yeni dosyayı kontrol ettikten sonra kaydetmeyi unutmayınız.", vbInformation, "T A M A M"
End Sub