
Private Sub cmdCalcola_Click()
blnAggiungi = False
h = 1
Do Until blnAggiungi = True Or h = 21
If Range("i" & h) = "" Then
blnAggiungi = True
End If
h = h + 1
Loop
autosufficienza = Range("E" & h - 1)
saldo = Range("F" & h - 1)
extra = Range("G" & h - 1)
Range("i" & h - 1) = "=retta(autosufficienza, saldo, extra, $B$25)"
End Sub |
