abilerim geometrik ortalama aldırcam bu kodda nerde hata var sürekli ya (1) yada (0) sonucunu veriyor.Hata nerde?
--------
'Geometrik ortalama
ElseIf OptionButton9.Value Then
d = 1
Range(UserForm1.RefEdit1).Select 'verileri al
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Rows.Count
d = d * Cells(i, j)
Next j
Next i
d = d ^ 1 / Selection.Rows.Count
MsgBox "İşlem Sonucunuz:" & d
----------------------------------
--------
'Geometrik ortalama
ElseIf OptionButton9.Value Then
d = 1
Range(UserForm1.RefEdit1).Select 'verileri al
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Rows.Count
d = d * Cells(i, j)
Next j
Next i
d = d ^ 1 / Selection.Rows.Count
MsgBox "İşlem Sonucunuz:" & d
----------------------------------