Ortalama alma yardım

[hamdih]

L7, L11, L15, L19, L23, L27, L31, L35, L39, L43, L47, L51 hücrelerenin ortalamasını almak istiyorum ve ortalama alırken de sıfır olan hücrelerin ortalamaya girmesini istemiyorum.. çok uğraştım yapamadım.. bu işlemi yapmak mümkün mü,, yardım lütfen

 

[Murat OSMA]

Örnek;

Sub Emre()
    Dim i%, say%
    For i = 7 To 51 Step 4
        If Cells(i, "L") <> 0 Then
        say = say + 1
        Range("K7").Value = WorksheetFunction.Sum(Range("L7:L" & i)) / say
        End If
    Next i
    i = Empty: say = Empty
End Sub

 

[soykan]

Fonksiyon çözümü de aşağıda
=ORTALAMA(EĞER(L7:L52>0;L7:L52))
Dizi formüldür. Ctrl+Shift+Enter tuşlarına basarak formülü kullanınız.