Soru Sütun Atlayarak Ortalama Alma

[sirkülasyon]

Dim Bak As Integer
 On Error Resume Next
    For Bak = 12 To 46
        Range("O" & Bak).Value = WorksheetFunction.Average( _
                                        Range("E" & Bak), _
                                        Range("G" & Bak), _
                                        Range("I" & Bak), _
                                        Range("K" & Bak), _
                                        Range("M" & Bak))
                                        
        Range("P" & Bak).Value = WorksheetFunction.Average( _
                                        Range("F" & Bak), _
                                        Range("H" & Bak), _
                                        Range("J" & Bak), _
                                        Range("L" & Bak), _
                                        Range("N" & Bak))
                                        
    Next

Yukarıdaki kod ile boş olan hücreleri de hesaplamaya dahil ettiği için ortalama hatalı çıkıyor. Mümkünse ortalamayı hesaplarken sadece dolu hücreleri dikkate alması için nasıl bir düzenleme yapabiliriz?

 

[Ömer]

Merhaba,

Boş hücreleri dikkate almaması gerekir. Boş hücremi değeri sıfır olan hücre mi?

 

[sirkülasyon]

Hepsi boş hücreler Ömer Abi. Hiçbir veri girilmemiş
O hücresine ortalama alınan sütunlar boşları dikkate almıyor.
P hücresine ortalama alınan sütunlar boşları dikkate alıyor.

 

[Ömer]

Birinde alıyor birinde almıyorsa hücreleri kontrol etmek gerekir. Ben tahmini yazarım fakat bunun yerine örnek dosya eklerseniz daha kısa sonuça gitmiş oluruz.