Soru Döngü ile toplama

[Cengizhantr06]

B5 E5 D5 E5 F5 G5 H5 satırlarını I 5 e toplama
B6 C6 D6 E6 F6 G6 H6 satırlarını I 6 ya toplama
B7 C7 D7 E7 F7 G7 H7 satırlarını ı 7 ye toplama
Bu şekilde b20 ye kadar nasıl toplarım for döngüsü ile

 

[Asri]

Açıklamalar yazıldı.

Sub satirtopla()
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir < 5 Then sonsatir = 5
   For i = 5 To sonsatir
    'Formül ile sayfada formül görünür
    ' Cells(i, "I").FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
    'Değerleri yazar. Formül görünmez
     Cells(i, "I").Value = Application.WorksheetFunction.Sum(Range("B" & i & ":H" & i))
   Next i
End Sub

 

[Cengizhantr06]

Açıklamalar yazıldı.

Sub satirtopla()
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir < 5 Then sonsatir = 5
   For i = 5 To sonsatir
    'Formül ile sayfada formül görünür
    ' Cells(i, "I").FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
    'Değerleri yazar. Formül görünmez
     Cells(i, "I").Value = Application.WorksheetFunction.Sum(Range("B" & i & ":H" & i))
   Next i
End Sub

Teşekkür ederim Tam istediğim gibi ama ı5 ten I15 e kadar topluyor ı20 ye yada ı 30 kadar nasıl yapabiliriz

 

[Cengizhantr06]

Açıklamalar yazıldı.

Sub satirtopla()
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir < 5 Then sonsatir = 5
   For i = 5 To sonsatir
    'Formül ile sayfada formül görünür
    ' Cells(i, "I").FormulaR1C1 = "=SUM(RC[-7]:RC[-1])"
    'Değerleri yazar. Formül görünmez
     Cells(i, "I").Value = Application.WorksheetFunction.Sum(Range("B" & i & ":H" & i))
   Next i
End Sub

Pardon oldu tamam çok teşekkür ederim