Her üç satırda bir ortalama alma

[ymalkoc61]

Arkadaşlar merhaba;
Aşağıda linkini verdiğim örnek dosyada her üç satırda bir, üstteki üç satırın ortalamasını almak istiyorum. Bunu nasıl yapaiblirim. Yardımlarınız için şimdiden teşekkür ediyorum. Saygılar...

http://s3.dosya.tc/server9/o8jxv5/ornek1.xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Ortalama satırlarını ekledikten sonra listeye veri girilmeye devam edilecek mi yoksa liste sabit mi.
Daha sonra yeni girilen değerlere göre tekrar ortalama işlemi yapılacak mı.

. . .

 

[ymalkoc61]

Veri girilmeye devam edilmeyecek. Sadece mevcut verilerin ortalaması alınacak. Yani liste sabit.

 

[Emir Hüseyin Çoban]

. . .

Örnekte eklediğiniz ortalama satırlarını silerek kodları çalıştırın.

Sub kod()
    Application.ScreenUpdating = False
    Dim WF As WorksheetFunction: Set WF = Application.WorksheetFunction
    Dim i As Integer, son As Integer, a As Byte
    
    son = Cells(Rows.Count, "A").End(3).Row + 1
    For i = son To 3 Step -3
        Rows(i).Insert Shift:=xlDown
        Cells(i, "W") = "X"
        For a = 1 To 22
            Cells(i, a).Formula = "=Average(" & Cells(i - 3, a).Address & ":" & Cells(i - 1, a).Address(0, 0) & ")"
        Next a
    Next i
    Application.ScreenUpdating = True
    MsgBox "B i t t i"
End Sub

. . .

Ekran Görüntüsü:


. . .

 

[ymalkoc61]

Çok teşekkür ederim, emeğinize sağlık...