Scribd
Cargar
10 vistas2 páginas

Generación de Cuotas de Préstamo en Excel

El documento es un código VBA que calcula cuotas de un préstamo basado en diferentes modalidades de pago. Inserta información sobre el cliente y las cuotas en hojas de cálculo específicas, ajustando las fechas según la modalidad seleccionada. Finalmente, resume los datos del préstamo en otra hoja de cálculo.

Cargado por

Luis Martinez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOC, PDF, TXT o lee en línea desde Scribd
10 vistas2 páginas

Generación de Cuotas de Préstamo en Excel

El documento es un código VBA que calcula cuotas de un préstamo basado en diferentes modalidades de pago. Inserta información sobre el cliente y las cuotas en hojas de cálculo específicas, ajustando las fechas según la modalidad seleccionada. Finalmente, resume los datos del préstamo en otra hoja de cálculo.

Cargado por

Luis Martinez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOC, PDF, TXT o lee en línea desde Scribd

Sub calcular()

cod_cli = Range("E6")

importe = Range("E9")

modalidad = Range("E11")

tasa_interes = Range("E13")

n_cuotas = Range("E15")

monto_cuota = Range("E17")

total_pagar = Range("E19")

fecha = Range("E21")

codigo_prestamo = Range("C6")

For i = 1 To n_cuotas

Sheets("ESTADOS").Select

Rows("5:5").Select

[Link] Shift = xlDown

Range("J5") = codigo_prestamo

Range("B5") = cod_cli

Range("G5") = monto_cuota

Range("D5") = modalidad

Range("E5") = "Cuota - " & i

If modalidad = "Mensual" Then

Range("F5") = DateAdd("m", i, fecha)

End If

If modalidad = "Quincenal" Then

ff = 15 * i
Range("F5") = DateAdd("d", ff, fecha)

End If

If modalidad = "Semanal" Then

Range("F5") = DateAdd("ww", i, fecha)

End If

If modalidad = "Diario" Then

tt = 1 + i

Range("F5") = DateAdd("d", tt, fecha)

End If

Next i

Sheets("RESUMEN").Select

Rows("5:5").Select

[Link] Shift = xlDown

Range("C5") = cod_cli

Range("E5") = fecha

Range("F5") = importe

Range("G5") = modalidad

Range("H5") = tasa_interes

Range("B5") = codigo_prestamo

End Sub

También podría gustarte