Scadentar – nu cred ca functioneaza corect…unde e functia PMT?

Sub Genereaza_Scadentar()

‘Memoram informatiile relevante
valoare = Range(„B1”)
perioada = Range(„B2”)
val_dobanda = Range(„B3”)
data_disbursare = Range(„B4”)

‘Pregatim scadentarul
Range(„D2:I1000”).ClearContents

‘Generam scadentarul
For i = 1 To perioada

‘Numar si data
Cells(i + 1, 4) = i
Cells(i + 1, 5).Value = DateSerial(Year(data_disbursare), Month(data_disbursare) + i, 0)

‘Rata
Cells(i + 1, 6) = valoare / perioada

‘Dobanda
Cells(i + 1, 7) = valoare * val_dobanda * perioada / 12 / perioada

‘Plata lunara
Cells(i + 1, 8) = Cells(i + 1, 6) + Cells(i + 1, 7)

‘Sold credit
If i = 1 Then
Cells(i + 1, 9) = valoare – Cells(i + 1, 6)
Else
Cells(i + 1, 9) = Cells(i, 9) – Cells(i + 1, 6)
End If

Next i

‘Adaugam totaluri – doar daca e completata valoarea
If valoare > 0 Then

Range(„F” & perioada + 2) = „=SUM(F2:F” & perioada + 1 & „)”
Range(„G” & perioada + 2) = „=SUM(G2:G” & perioada + 1 & „)”
Range(„H” & perioada + 2) = „=SUM(H2:H” & perioada + 1 & „)”

‘Formatare de final
Range(„E:E”).NumberFormat = „yyyy-mm-dd;@”
Range(„F:I”).NumberFormat = 0

End If

End Sub