Listedeki kritere göre Ortalama Hesaplama yaptırmak

[sakoz]

Arkadaşlar Merhaba ,

Her zamanki gibi bir konuda daha yardımınız gerekiyor

Bir listemiz var ve bu listedeki I sütunundaki rakamların ortalamalarını alıp N sütununa yazdırmak istiyoruz.
A sütunundaki SN numarasına göre I sütunundaki rakamların ortalamasını alıp gri satırlara yazacak. I sütunundaki değerler sabit aralıklı olmadığı için makrolu bir çözüm gerekiyor.

Örn; I3;I4;I5 'in ortalamasını alıp N2 ye yazacak , I7;I8;I9;I10;I11 arasındakilerin ortalamasını alıp N6 ya yazacak gibi…

Örnek dosya eklenmiştir ve dosyaya açıklama yazılmıştır.
Şimdiden tüm üstadlara teşekkür ederim.
Saygılar,

http://s5.dosya.tc/server5/boylrq/ortalama.rar.html

 

[sakoz]

Arkadaşlar yardımcı olabilirseniz çok memnun olurum...

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub Ortalama()
    Dim a()
    For i = 2 To [h65536].End(3).Row
        If Cells(i, "h").Interior.ColorIndex = 15 Then
            x = x + 1
            ReDim Preserve a(0 To x)
            a(x) = i
        End If
    Next
    On Error Resume Next
    For y = 0 To UBound(a)
       Cells(a(y + 1), "n") = WorksheetFunction.Average(Range("i" & a(y + 1) + 1 & ":i" & a(y + 2) - 1))
    Next
End Sub

 

[sakoz]

Hamitcan bey ,

Zihninize emeğinize sağlık , çok ama çok teşekkür ederim.
Sadece son gri satırdaki hesaplamayı yapmıyor. Onun dışındakileri gayet hızlı bir şekilde getiriyor.