Ağırlıklı Ortalama _ Makro İle

[baydeniro]

Merhaba arkadaşlar. Makro kodu ile ağırlıklı ortalama hesaplatmak mümkün mü ? Dosya ekte. Formül ile hersaplanmış rakamlar mevcut.

 

[Huseyinkis]

Merhaba arkadaşlar. Makro kodu ile ağırlıklı ortalama hesaplatmak mümkün mü ? Dosya ekte. Formül ile hersaplanmış rakamlar mevcut.

Ekteki kodları incelermisiniz.

Sub Topla()
For i = 3 To Range("A65536").End(3).Row
Tplmkt = WorksheetFunction.SumIf(Range("D3:D" & i), Range("D" & i), Range("E3:E" & i))
Tplttr = WorksheetFunction.SumIf(Range("D3:D" & i), Range("D" & i), Range("G3:G" & i))
OrtM = Tplttr / Tplmkt
Range("J" & i).Value = OrtM
Next
End Sub

 

[baydeniro]

Sayın hüseyinkis, yardımlarınız için çok çok teşekkür ederim. Emeğinize sağlık, Allah işinizi gücünüzü rast getirsin. Sağlıcakla kalın.