sayfalar arası toplam alma

[SaiL0704]

merhaba arkadaşlar;
benim elimde 161 sayfalık bir excel dosyası var..
sayfa isimleri (sayfa1, sayfa2, sayfa3) gibi değil, (1, 2, 3, 4) şeklinde yazılı...
1 den 161 e kadar olan sayfaların (I22) hücresinde sayı yazılı.
1 den 161 e kadar olan sayfaların (I22) hücresindeki sayıların toplamını 162. sayfada A1 hücresine yazdırmak istiyorum..
yardımcı olabilir misiniz...

 

[Murat OSMA]

Deneyiniz;

Sub Emre()
    Dim syf As Worksheet
    Dim topla As Double
    For Each syf In ThisWorkbook.Worksheets
        topla = topla + syf.Range("I22").Value
        Sheets("162").Range("A1").Value = topla
    Next syf
    topla = Empty
    Set syf = Nothing
End Sub

Kodları sadece alıp kullanmayın, anlamaya çalışın. :dusun:

 

[SaiL0704]

özür dilerim, benim excel bilgim fazla yok.
bu nedir nasıl yapılır, açıklayabilir misiniz...

 

[Ömer]

Merhaba,

Alternatif olarak;

=TOPLA('1:161'!I22)

Kullanabilirsiniz.

.

 

[SaiL0704]

teşekkür ederim Ömer kardeş, çok sağol...

 

[Murat OSMA]

Dosyayı ekliyorum.
162. sayfadaki kırmızı butona basın.
ALT + F11 tuşlarına basarak kodları ve nereye yazıldıklarına bakabilirsiniz..

 

[Merhum İdris SERDAR]

.

Bir de buraya bakınız:

http://www.excel.web.tr/f60/3b-3d-formulleri-t68265.html


.

 

[SaiL0704]

yardımlarınız için çok teşekkür ederim tüm arkadaşlara,
iyiki varsınız...