...
Code Block |
---|
Private Sub Laske_Click()
Korkopros=InputBox("Anna korkoprosentti")
For Laskuri = 2 To 10 Step 1
arvo = Cells(Laskuri, 4)
Tyyppi = Cells(Laskuri, 2)
Erapvm = Cells(Laskuri, 5)
If (Erapvm < 0 And Tyyppi = 1) Then
Cells(Laskuri, 12) = Erapvm / 360 * arvo * Korkpros.Value / 100
Else
Cells(Laskuri, 12) = 0
End If
Next Laskuri
End Sub
|