Macro que resuelva un cuadro de amortizaciones bajo el método francés para bonos con periodos de gracia
Tengo un archivo en el que se resuelve un cuadro de pagos bajo el método francés mediante fórmulas de excel. Sin embargo, me gustaría que todo eso se resuelva con macros porque el número de periodos es variable y algunas fórmulas cambian (o no están) según la versión del excel. Me gustaría una programación para que el archivo sea portable.
El archivo está bien ordenado y tiene comentarios que explican lo que deseo que haga la macro. Necesitaría que el experto me brinde su correo para enviarle el archivo. Agradecería que pongan comentarios pues me gusta programar y quiero aprender.
Siempre califico alto.
1 respuesta
Te anexo la macro para que la adaptes a tu archivo, o bien, utiliza el archivo que te estoy enviando. En el archivo va un ejemplo con fórmulas de esa forma está armada la macro.
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 Subhttps://www.dropbox.com/s/i8c0mhqidxvl59l/amoritizacion%20metodo%20frances.xlsm?dl=0
Saludos. Dante Amor
Recuerda valorar la respuesta.
¡Gracias Dante!
Acabo de probarlo y me parece genial. Voy a acoplarlo, si encuentro algún inconveniente (cosa que dudo), creo una nueva pregunta. Muy agradecido. Saludos!!!
