for komutu ile 10 lu toplama

[_Anibal_]

merhaba arkadaşlar
exele yeni başladım aşağıdakini çözemedim yardırmcı olurmusunuz.

tşr..

Macronun ismi “OnluToplat”. Bu macro B kolonunun 2. satırından 11. satırına
kadar A kolonundaki 10 satırı toplatıp yazdıracak. B2 hücresinde A2-A11
hücresindeki sayıların toplamı, B3 hücresinde A12-A21 hücresindeki sayıların
toplamı gibi.....Bu macroyu For Loop kullanarak yazınız.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Topla()
Dim i As Long, j As Long
Dim k As Integer
j = 1
k = 10
For i = 2 To [A65536].End(3).Row Step k
    j = j + 1
    Cells(j, "B") = Application.WorksheetFunction.Sum(Range("A" & i & ":A" & i + k - 1))
Next i
End Sub

 

[_Anibal_]

çok teşekkür ederim. hayla uğraşıyorum becerememiştim.