Excel Avanzado

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

Excel Avanzado
macro

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

| 0 comments

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

 

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

 

Por: Liliam Leonorhy

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5