Sütun atlayarak toplama yapmak

[y_tekeli]

daha önceden bir örneği varsa bile ben bulamadım bu konuda şimdiden hakkınızı helal edin.
yapmak istediğim E9 ile BF9 aralığında E9 dan başlayarak beşer beşer atlayacak şekilde toplam almak istiyorum. Bunu kod ile nasıl yapabilirim.
TOPLA.ÇARPIM((MOD(SÜTUN(E9:BF9);5)=0)*(E9:BF9))
Topla.çarpım fonksiyonu ile buldum lakin kod yardımıyla ne yapabildim neden bir örneği bulabildim.

 

[Ömer]

Merhaba

Bir örnek:

Sub topla()

    Dim i As Integer, j As Double

    For i = [E9].Column To [BF9].Column Step 5
        j = j + Cells(9, i)
    Next i
   
    MsgBox j
   
End Sub

 

[Orion1]

Buyurun.

Sub besebesertopla()
Dim i As Integer, topla As Long
For i = 5 To 59
    If i Mod 5 = 0 Then
        topla = topla + Cells(9, i).Value
    End If
Next i
MsgBox topla
End Sub

 

[y_tekeli]

bu kadar hızlımı cevap verilir isteksizce sayfayı yenilemiştim oysa

 

[y_tekeli]

Peki ben bunu E9-BF29 aralığındaki beşer beşer sütunlarda(örn,E9,E10,J15,O8 vs.) değer değişince otomatik hesaplayacak şekilde nasıl ayarlayabilirim.