Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Formulario aplicado a la evaluación de otorgamiento de un préstamo

| 1 comentario

El formulario que se ha elaborado es para la evaluación de otorgamiento de un préstamo por un banco.

La evaluación que realiza un banco para aprobar prestamos, dependen por lo general del nivel de ingresos del solicitante en función de la deuda que adquirirá y si el solicitante posee actualmente una deuda pendiente. En consideración a ello, se ha elaborado un formulario en el cual podamos ingresar información relevante que nos ayude a evaluar si es otorgable o no el préstamo que se solicita. La información en nuestro formulario es:

  • Monto del Préstamo: cantidad de dinero que se solicita
  • Plazo de pagos: en cuantos meses el cliente quiere pagar su deuda
  • Moneda: se considera esta diferencia, dado que la tasa de interés en un préstamo en soles es distinta a un préstamo en dólares. En nuestro ejemplo la tasa de interés anual de un préstamo en soles es del 26%, mientras que en dólares la tasa es de 25%
  • Ingreso mensual: ingresos con los que cuenta mensualmente el cliente
  • Tiene otros préstamos: Con la finalidad de valorar cómo afecta en la evaluación de otorgamiento del préstamo, el que el cliente este pagando actualmente una deuda ya adquirida y el pago que asumiría con este nuevo préstamo que solicita.
  • Cuota mensual de deuda anterior: se solicita este dato con la finalidad de comparar esta cuota de pago mensual de una deuda anterior que haya adquirido el cliente y la nueva cuota de pago mensual que adquiría con el saldo mensual que percibe el mismo.

Con la información que solicitamos en el formulario, podemos evaluar si es aceptable otorgar un nuevo préstamo al cliente o en todo caso denegarla. Para dicha evaluación, el principio que se ha seguido en nuestro ejemplo, es que el 30% del sueldo mensual del cliente puede ser destinado al pago de deudas, ya que como mínimo necesita un 70% del mismo para sus gastos necesarios. Este parámetro del 30% del sueldo mensual puede modificarse, dependiendo de la política del banco. Con ello, estaríamos afirmando que la cuota mensual del préstamo que se quiere adquirir más la cuota mensual en el caso que tenga otras deudas anteriores, debe ser igual o menor al 30% del sueldo mensual del solicitante; porque de lo contrario, estaríamos arriesgándonos como banco que el cliente no pague su deuda puntualmente, dado que no podría dejar de consumir para su subsistencia el 70% de su suelo mensual.

En consideración a lo anteriormente señalado,  en la elaboración del  formulario, como estamos utilizando una lista despegable, incorporamos mediante la siguiente función los datos que contiene nuestra lista:

Private Sub UserForm_Activate()
ComboBox1.AddItem ("Soles")
ComboBox1.AddItem ("Dolares")
End Sub

Teniendo completo el interfaz del formulario, se formulan las condiciones para la evaluación del crédito.  A continuación se detalla nuestra programación en la macro:

Private Sub CommandButton1_Click()
'Condiciones del préstamo:
'tasa de interés en soles es 26% anual
'tasa de interés en dolares es 25% anual

'Definimos nuestras variables:
'Monto de prestamo
a = TextBox1
'Plazo de pago en meses
b = TextBox2
'Ingreso mensual
c = TextBox3
'Cuota de pago mensual de la deuda anterior
e = TextBox4
'OptionButton1 es si tiene otros prestamos
'OptionButton2 es no tiene otros prestamos

'Condición de ingreso de datos para todos los items
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1 = Empty Then
MsgBox "Ingrese Dato"

Else

If OptionButton2 = False And OptionButton1 = False Then
MsgBox "Ingrese Dato"
Else

'Resultado predeterminado si el cliente no tiene deudas anteriores
If OptionButton2 = True Then

TextBox4 = 0
e = TextBox4
'Evaluación del préstamos solicitado
If ComboBox1.Text = "Soles" Then
pago_cuota_mensual = (a / b) * (1 + (0.26 / 12))
Else
'Considerando un tipo de cambio de 2.85
pago_cuota_mensual = (a * 2.85 / b) * (1 + (0.25 / 12))
End If
If 0.3 * c - e >= pago_cuota_mensual Then
MsgBox "Prestamo Aprobado"
Else
MsgBox "Prestamo Desaprobado"
End If

Else

'Resultado si el cliente sí tiene deudas anteriores
If OptionButton1 = True And e <> Empty Then

'Evaluación del préstamos solicitado
If ComboBox1.Text = "Soles" Then
pago_cuota_mensual = (a / b) * (1 + (0.26 / 12))
Else
'Considerando un tipo de cambio de 2.85
pago_cuota_mensual = (a * 2.85 / b) * (1 + (0.25 / 12))
End If
If 0.3 * c - e >= pago_cuota_mensual Then
MsgBox "Prestamo Aprobado"
Else
MsgBox "Prestamo Desaprobado"
End If

Else
MsgBox "Ingrese pago mensual actual"

End If

End If

End If

End If

End Sub

Cabe resaltar, como se muestra en la programación, que en el caso de que la deuda que se quiera asumir sea en dólares, se ha aplicado por convención un  tipo de cambio de 2.85, cifra que puede ser modificada.

Con ello, tendríamos inicialmente un formulario como sigue:

Formulario inicial Formulario aplicado a la evaluación de otorgamiento de un préstamo

Luego de ingresar los datos solicitados por el  formulario se vería de este modo:

Formulario con datos Formulario aplicado a la evaluación de otorgamiento de un préstamo

Al evaluar la información ingresada en el formulario, el resultado de la evaluación daría como resultado en nuestro ejemplo el siguiente:

Formulario resultado Formulario aplicado a la evaluación de otorgamiento de un préstamo

Para mayor detalle, se adjunta el archivo Excel con el formulario desarrollado:

Formulario para evaluación de otorgamiento de un préstamo

Elaborado por: Ericka Ramirez

Un comentario

  1. Me parece que falta hacer unos ajustes con respecto a los parámetros a evaluar para la decisión de aprobar o no el crédito. Buen intento, pero necesita ser desarrollado mejor.

Deja una respuesta

Los campos requeridos estan marcados con *.