
If Range("C3") <> "" Then
b = Range("B3").Value
b1 = ((Range("B3").Value) * (Range("C3").Value))
End If
If Range("C4") <> "" Then
c = Range("B4").Value
c1 = ((Range("B4").Value) * (Range("C4").Value))
End If
.....
CREDITI = (b + c +....)
MOLT = (b1 + c1....)
MEDIAVOTI = (MOLT / CREDITI)
Range("F14").Value = MEDIAVOTI
|
