Sayfa Toplami

[zivrov]

saygı değer arkadaşlar tüm sayfalardaki bir hücrenini toplamını almak için nasıl bir kod yazmam gerekir mesela 1 2 3 . . . 500 600 diye sayfalarımız var ve bunlarda e35 hücresinde rakamlar yazıyor bu rakamların toplamak için bir formül girmem gerekiyor yardım ederseniz sevinirim...

 

[Necdet]

Sayın zivrov,

Ekteki dosyayı kendinize uyarlayınız.
1. sayfa hariç diğer sayfaların D4 teki hücreleri toplar, 1. sayfanın B3 hücresine yazar.

Public Sub Topla()
For i = 2 To Sheets.Count
Sheets(i).Select
toplam = toplam + [D4]
Next
Sheets(1).Select
[B3] = toplam
End Sub

 

[Ali]

Tüm sayfaların E35'deki sayıların toplamını Sayfa1'deki A1 hücresinde görmek için aşağıdaki gibi kullanabilirsiniz.

Sub deneme()
Dim i As Integer
For i = 1 To Sheets.Count
t = Worksheets(i).Range("E35")
Sheets("Sayfa1").Range("A1") = Sheets("Sayfa1").Range("A1") + t
Next i
End Sub

 

[mesudiye_052]

örnek

=TOPLA(Sheet2:Sheet4!E35)