EĞERORTALAMA fonksiyonunu makro ile nasıl uyulanır?

[Tevfik_Kursun]

Günaydın Arkadaşlar,
EĞERORTALAMA fonksiyonunu makro ile nasıl uyularım? (Excel'e yaptırılan makronun dışında bir örnek olsun istiyorum)
saygılarımla

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Range("Y6:AN7").Formula = "=AVERAGEIF($C:$C,$X6,F:F)"
    Range("Y6:AN7").Value = Range("Y6:AN7").Value
End Sub

 

[Tevfik_Kursun]

Teşekkürler Arkadaşım,
İyi çalışmalar

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[Tevfik_Kursun]

Sayın Arkadaşım,
Ayıp olacak belki ama, 3. satır sadece ORTALAMA idi, ona da bakar mısın, lütfen?
İyi çalışmalar

 

[Muzaffer Ali]

Estağfurullah neden ayıp olsun?

Sub Test()
    Range("Y6:AN7").Formula = "=AVERAGEIF($C:$C,$X6,F:F)"
    Range("Y8:AN8").Formula = "=AVERAGE(F:F)"
    Range("Y6:AN8").Value = Range("Y6:AN8").Value
End Sub

 

[Tevfik_Kursun]

Çok teşekkür ederim, makbule geçti
İyi çalışmalar