sayfalardaki a1 hücrelerinin toplatılması

[puslukurt]

bir excel çalışma kitabında 10 tane sayfa var ve bu sayfalardaki a1 hücresindeki rakamları toplatmak için nasıl bir makro yazabiliriz. şimdiden teşekkürler

 

[mehmett]

Fonksiyon ile isterseniz şöyle;

=TOPLA(Sayfa1:Sayfa10!A1)

 

[Kemal Demir]

bende bole bir cevap ilave edebilirim.

Sub topla()
For x = 1 To Sheets.Count
c = Sheets(x).Cells(1, 1)
d = d + c
Next
Sheets(1).Range("a2") = d
End Sub

Tüm Toplamları 1.Sheet'ın a2 hücresine sonucu yazdırıyor.