Makro ile ortalama alma

[Yesilyurtlu]

üstadlarım ekli dosyamda iki tane düğme mevcut.
biri sadece satırın ortalamasını almak için uygulanacak diğer ise bütün satırların ortalamasını almak için uygalanacak.
Sıfırlar hesaplamaya dahil olmayacak ve veri kaç tane ise o kadarın ortalamasını alacak.
Bu konuda yardımınızı istirham ediyorum

 

[YUSUF44]

Tek satır derken hangi tek satır olduğunu nerden bilecek ve ayrıca neden formülle değil de makroyla?

 

[Yesilyurtlu]

Hangi tek satır ? 5.Satır olabilir.
Neden Formül değilde Makro ile ? Tercih sebebi desem
Teşekkür ederim.

 

[YUSUF44]

Tek satır için ortalama;
O anda seçili olan hücrenin solundaki hücrelerin ortalamasını alır:

Sub tekort()
'
' tekort Makro
'

'
    
    ActiveCell.FormulaR1C1 = "=SUM(RC[-7]:RC[-1])/COUNTIF(RC[-7]:RC[-1],"">0"")"
        Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub