döngü işlemi

[chakistes]

merhaba arkadaşlar aşağıdaki kodu döngü ile excelde 9 .sütündan 30.sütüna kadar devam ediyor bunu döngü ile 9 dan 30 a kadar devam ettireceğim

[g9] = WorksheetFunction.Sum([D9:E9:F9]) / 3

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub dongu()

    Dim i As Byte
    
    For i = 9 To 30
        Cells(i, "G") = WorksheetFunction.Sum(Range("D" & i & ":F" & i)) / 3
    Next i
    
End Sub

 

[chakistes]

teşekkür ederim