farklı bir toplama işlemi

[GursoyC]

Merhaba,
ekli örnekte açıkladığım üzere, excel çalışma kitabımda bulunan farklı sayfaların "VBA isimlerini baz alarak" bir toplam yaptırmaya çalışıyorum. Özetle sayfa numarası 18'den büyük olan tüm sayfaların K5 hücrelerini toplatmaya çalışıyorum.
Yardımcı olur musunuz?
Teşekkür ederim.

yüklenen dosya:

http://dosya.co/l2y734t6el7t/toplama_işlemi.xlsm.html

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod istenilen sonucu verir.
.

[B]Sub INDEX_TOPLA()[/B]
For shf = 1 To ThisWorkbook.Worksheets.Count
If (1 * Mid(Sheets(shf).CodeName, 6, 255)) > 18 Then topl = topl + Sheets(shf).[K5]
Next: [COLOR="Blue"]Sheets("index").[R15] = topl[/COLOR]
[B]End Sub[/B]

 

[Haluk]

Kullanacağınız kod;

Sub Test()
    For i = 1 To Sheets.Count
        tempNo = Replace(Sheets(i).CodeName, "Sayfa", "") + 0
        If tempNo > 18 Then mySum = mySum + Sheets(i).Range("K5")
    Next
    Sheets("index").Range("R15") = mySum
End Sub

.

Not: Sayfayı yenilemediğim için Ömer Beyin cevabını görmemişim.

.

 

[GursoyC]

Ömer bey, Haluk bey,
Çok teşekkür ederim, gayet güzel çalışıyor.
Saygılarımla.