sayfaların hücresine girilen rakamlar ana sayfanın hücresinde toplansın

[arifbirgen]

değerli hocalarım
13 tane sayfanın a2 hücresine rakam girdiğimde anasayfanın a2 hücresinde
toplamı alınabilirmi.Yardımcı olursanız sevinirim.Teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yapıştırınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a2") = ""
For i = 2 To Sheets.Count
Range("a2") = Range("a2") + Sheets(i).Range("a2")
Next
End Sub

 

[arifbirgen]

sayın hocam V.Basic For Applications
Öncelikle hemen cevap verdiğiniz için size çok teşekkür ederim.
Bir soru daha sormak durumundayım,bunada cevap verirseniz memnun olurum.
sorum şu: diğer sayfadaki birçok hücreye rakam gireceğim.Ana sayfanın aynı
türdeki birçok hücrelerde toplanacak.Verdiğiniz kod sadece a2 için.Size iyi
çalışmalar.

 

[AS3434]

Makrosuz şöyle bir yöntemle yapabilirsiniz.

Ana Toplam sayfanızda Toplam alacağınız hücrelere şu formülü yazın.

=TOPLA(Sayfa2:Sayfa13!B4)

Her hücre için B4 kısmını değiştirin.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil hücreleri çoğaltabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a2,b2,c2,a3,b3,c3") = ""
For i = 2 To Sheets.Count
Range("a2,b2,c2,a3,b3,c3") = Range("a2,b2,c2,a3,b3,c3") + Sheets(i).Range("a2,b2,c2,a3,b3,c3")
Next
End Sub

 

[N.Ziya Hiçdurmaz]

=TOPLA(Sayfa1:Sayfa3!A1)

 

[asd_demir]

sağol hocam