Makro ile sütun atlayarak ortalama alma

[sirkülasyon]

D:O sütunlarında 3:14 satırları arasında
D,F,HJ,L,N sütunlarındaki satırlarının ortalamasını P sütununa
E,G,I,K,M,O sütunlarındaki satırlarının ortalamasını Q sütununa sütununa
alacak makro için yardımınıza ihtiyacım var.
Teşekkür eder saygılarımı sunarım

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin.

Sub Ortalama()
    Dim Bak As Integer
    On Error Resume Next
    For Bak = 3 To 14
        Range("P" & Bak).Value = WorksheetFunction.Average( _
                                        Range("D" & Bak), _
                                        Range("F" & Bak), _
                                        Range("H" & Bak), _
                                        Range("J" & Bak), _
                                        Range("L" & Bak), _
                                        Range("N" & Bak))
                                        
        Range("Q" & Bak).Value = WorksheetFunction.Average( _
                                        Range("E" & Bak), _
                                        Range("G" & Bak), _
                                        Range("I" & Bak), _
                                        Range("K" & Bak), _
                                        Range("M" & Bak), _
                                        Range("O" & Bak))
        
    Next
End Sub

 

[sirkülasyon]

Ellerine Sağlık. Çok çok teşekkür ederim.
Hakkınızı helal edin

 

[Muzaffer Ali]

Rica ederim. Helal olsun.