farklı sayfalardaki alt toplamları tek sayfada listelemek

[mithrill74]

ekteki dosyada gerekli açıklama mevcut.
yardımcı olabilirseniz sevinirim.
iyi çalışmalar

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu kullanınız.

Option Explicit
Sub Toplamlar()
Dim i%, y%
Dim sh As Worksheet
Dim bul As Range
y = 2
Cells.ClearContents 'Sayfayı temizlemek için kullanılır. İsterseniz kaldırabilirsiniz.
For i = 1 To Sheets.Count
    If Sheets(i).Name <> ActiveSheet.Name Then
       Set sh = Sheets(i)
       Set bul = sh.Cells.Find("Genel Toplam", , , xlWhole)
       If Not bul Is Nothing Then
          Cells(y, 1) = Sheets(i).Name
          Cells(y, 2) = sh.Cells(bul.Row, bul.Column + 1)
          Cells(y, 3) = sh.Cells(bul.Row, bul.Column + 2)
          Cells(y, 4) = sh.Cells(bul.Row, bul.Column + 3)
          Cells(y, 5) = sh.Cells(bul.Row, bul.Column + 4)
          Cells(y, 6) = sh.Cells(bul.Row, bul.Column + 5)
          y = y + 1
       End If
    
    End If
Next i
Set bul = Nothing
Set sh = Nothing
End Sub