sheetlerden toplam alma

[recep]

çalışma kitabımda sheets1 ve 2 haricindaki tüm sayfalarda bulunan masala a1 hüçralarini toplayıp sheets 2 de a1 e yazan bir koda ihtiyacım var mümkün mü? şimiden teşekkürler.

 

[mehmett]

Diyelim ki 6 sayfanız var ve Sayfa3'ten Sayfa6'ya kadar A1 hücrelerini toplamak istiyorsanız aşağıdaki fonksiyonu kullanabilirsiniz.

=TOPLA(Sayfa3:Sayfa6!A1)

 

[recep]

MAKROLU OLANI LAZIM MÜMKÜN SE

 

[Ali]

Sub topla()
For x = 3 To Sheets.Count
k = Sheets(x).Cells(1, 1)
e = e + k
Next
Sheets(2).Range("a1") = e
End Sub