Como armar macros que resuelvan un cuadro de amortizaciones francés para bonos
¿Cómo podría armar una macro que me permita calcular el cuadro de amortizaciones bajo el método franceds para bonos? ¿Alguien me puede ayudar?
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para calcular el cuadro de amortizaciones
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 SubLos datos deberán estar en esta forma:
En la celda C7 deberá estar esta fórmula:
=B5/((1-(1+D5)^-C5)/D5)
Saludos.Dante Amor
Recuerda valorar la respuesta.
