toplayıp bölme işlemi

[chakistes]

merhaba arkadaşlar aşağıdaki kodla d sütunundan I sütununa kadar toplayıp 3 e bölüyor benim istediğim
e - g ve I sütunlarını toplayıp 3 e bölsün yani 1 sütun atlasın

Dim xx As Byte

For xx = 3 To 22
Cells(xx, "J") = WorksheetFunction.Sum(Range("D" & xx & ":I" & xx)) / 3
Next xx

 

[Korhan Ayhan]

Deneyiniz...

Sub TEST()
    Dim xx As Byte
    
    For xx = 3 To 22
        Cells(xx, "J") = WorksheetFunction.Sum(Cells(xx, "e"), Cells(xx, "g"), Cells(xx, "ı")) / 3
    Next xx
End Sub

 

[chakistes]

teşekkür ederim