¿Podrías armar una macro para calcular bonos bajo el método francés?
¿Podrás ayudarme a armar una macro que me permita calcular el cuadro de armotizaciones bajo el método francés para bonos permitiéndome usar periodos de gracia en ciertos casos?
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro para el cálculo:
Sub AmortizacionMetodoFrances()
'Por.Dante Amor
'valida datos
If [B5] = "" Or [C5] = "" Or [D5] = 0 Then
MsgBox "Falta el capital"
Exit Sub
End If
f = 10
u = Range("B" & Rows.Count).End(xlUp).Row
If u = 9 Then u = 10
Range("B10:F" & u).ClearContents
For i = 1 To [C5]
Cells(f, "B") = i
Cells(f, "C") = [C7]
Cells(f, "D") = Cells(f - 1, "F") * [D5]
Cells(f, "E") = Cells(f, "C") - Cells(f, "D")
Cells(f, "F") = Cells(f - 1, "F") - Cells(f, "E")
f = f + 1
Next
End SubTambién te anexo mi archivo para que veas un ejemplo
https://www.dropbox.com/s/i8c0mhqidxvl59l/amoritizacion%20metodo%20frances.xlsm?dl=0
Saludos. Dante Amor
Recuerda valorar la respuesta.
