ortalama (vba ile)

[sirkülasyon]

H6:H35, J6:J35, L6:L35
sütunlarında yazan rakamların sıfır hariç olarak ortalamalarını alarak M6:M35 sütununa MAKRO ile yazmak için yardımcı olabilir misiniz?
Örnek :
H6 = 115,37
J6 = 90,02
L6= 14,11
M6 = 73,16

 

[Korhan Ayhan]

Aradaki sütunlarda farklı bir bilgi var mı?

Eğer yoksa aşağıdaki kodu kullanabilirsiniz.

Option Explicit

Sub Ortalama()
    With Range("M6:M35")
        .Formula = "=AVERAGEIF(H6:L6,""<>0"")"
        .Value = .Value
    End With
End Sub

 

[sirkülasyon]

Korhan abi
Ellerine sağlık.

 

[haso_excel]

Merhaba "AVERAGEIF fonksiyonu ile "Detailed report" sayfamın A kolonun Range im A2 hücresinden başlayarak satır sonu bilinmiyor her seferinde değişiklik gösterebilir. Kriterim = "Success Rep" sayfamın A2 hücresinden başlayarak son satıra kadar, Avarege Range ise Detailed report" sayfamın c kolonunun son satırına kadarki hücre.
Bu kreiterlere göre bu VBA ile nasıl yazabilirim rica etsem yardımcı olabilir misniz.
İlginiz için şimdiden çok teşekkür ederim