Belli Bir Sütundaki Adları Yazan Sayfaların Belli Hücrelerini Toplamak

[BedriA]

Merhaba arkadaşlar,

Sayfa isimleri "veri" isimli sayfada d2'den itibaren sıralanıyor.
Ben bu sayfaların her birinin s2 hücrelerini toplayıp "veri" isimli sayfanın f1 hücresine yazdırmak istiyorum.

Sayfa sayısı sürekli artacağı için genel bir kod gerektiği için sayfaları d sütunundan alması gerekiyor.

Yardımcı olabilir misiniz?

 

[askm]

Örnek dosya eklerseniz yardımcı olalım.

 

[BedriA]

Çok sağolun.
Şu kod ile başardım sonunda.

Private Sub CommandButton18_Click()
On Error Resume Next
Sheets("veri").Select

'temizleme
    Columns("F:G").Select
    Selection.ClearContents

    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[1]C[-2]:R[65535]C[-2])"
    a = Range("F1").Value + 1
For i = 2 To a

Sheets(Sheets("veri").Range("d" & i).Value).Select
 Range("S2").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
 
 Sheets("veri").Range("g" & i) = Range("S2")
    Next i

    Sheets("veri").Select
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=CEILING(SUM(R[1]C:R[65535]C),1)"
    
    CommandButton19.Caption = Format(Date, "dd.mm.yy") & " itibariyle toplam kârınız " & Range("g1") & " TL'dir."
End Sub

 

[askm]

Dim toplam
toplam=""
yazıp döngü içerisine girdikten sonra toplam=toplam+Range("S2")
Sheets("veri").Range("g" & i) =toplam
yazarsanız toplam değeri bulursunuz.