Makro ile Ortalama Aldırma

[arifcetin93]

Arkadaslar Merhaba,
ekteki örnek dosyamda A sütünundaki son degere kadar I sutununa örnekteki gibi ortalama aldırmam gerekiyor desteklerinizi rica ediyorum

tesekkurler

https://dosya.co/2dk4xagcp8np/Kitap1.xlsm.html

 

[Muzaffer Ali]

Merhaba.

Sub Ortalama()
    With Range("I2:I" & Cells(Rows.Count, "A").End(xlUp).Row)
        .FormulaLocal = "=ORTALAMA(E2;G2)"
        .Value = .Value
    End With
End Sub

 

[arifcetin93]

tesekkurler muzaffer bey