Koşullu geometrik ortalama

[buurakengin]

Merhabalar,

"il_kodu" 34 olan illerin "sayi" verilerinin geometrik ortalamasını hesaplamak isiyorum

A	B	C	il_kodu	sayi
-	-	-	34	250
-	-	-	34	520
-	-	-	06	125
-	-	-	34	250

Yardımlarınız için teşekkürler...

 

[veyselemre]

Sub test()
    Dim a
    a = Evaluate(Replace("(TRANSPOSE(IF(D2:D@=34,E2:E@,"""")))", "@", Cells(Rows.Count, 4).End(3).Row))
    If UBound(a) > -1 Then
        MsgBox WorksheetFunction.GeoMean(a)
    End If
End Sub

 

[buurakengin]

Teşekkür ederim elinize sağlık hocam