döngü işlemi

Katılım
17 Kasım 2009
Mesajlar
295
Excel Vers. ve Dili
2010
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Bu şekilde deneyin.

Kod:
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
 
Üst