Excel Avanzado

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

Excel Avanzado

WITH aplicado a definir la situación crediticia de un crédito

| Sin comentarios

La estructura WITH en VBA nos permite ejecutar un conjunto de instrucciones sin tener que volver a hacer referencia al mismo objeto.

Aplicaremos dicha estructura para ayudar a identificar la situación crediticia de clientes de una entidad financiera, tomando como base que la SBS identifica que las operaciones con mayor a 90 días de atraso son consideradas en el estado VENCIDO, mientras que las operaciones menores dichos días son VIGENTES. Cabe recalcar que esta norma se aplica en reportes como el 2A-1 (APR-riesgo de crédito) para identificar a los clientes vencidos o no.

Utilizaremos la funcion WITH para poner en rojo a los clientes VENCIDOS y en otro color a los clientes VIGENTES con un una letra cursiva y negrita.

La estructura fue la siguiente:

Sub Situacion_Crediticia()

Dim N
N = 2
Do While Cells(N, 4) <> 0
Cells(N, 4).Select
If Selection.Value < 90 Then
With Selection.Font
.Name = "times new roman"
.Size = 11
.ColorIndex = 55
End With
Cells(N, 5).Value = "Vigente"
Cells(N, 5).Select
With Selection.Font
.Name = "times new roman"
.FontStyle = "bold italic"
.Size = 11
.ColorIndex = 55
End With
Else
With Selection.Font
.Name = "times new roman"
.Size = 11
.ColorIndex = 3
End With
Cells(N, 5).Value = "Vencido"
Cells(N, 5).Select
With Selection.Font
.Name = "times new roman"
.FontStyle = "bold italic"
.Size = 11
.ColorIndex = 3
End With
End If
N = N + 1
Loop
End Sub

macro

(Para mayor visualización de la imagen, hacer click en la misma)

 

se adjunta archivo: WITH aplicado a definir la situación crediticia de un crédito

 

Por: Liliam Leonorhy

Deja una respuesta

Los campos requeridos estan marcados con *.