Excel Avanzado

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

Excel Avanzado

Ejemplo de Select Case aplicado a la detección de retención de 5ta categoría

| Sin comentarios

Se requiere detectar el nivel máximo de porcentaje de retención de quinta categoría que se tendrá por trabajador según sus ingresos proyectados anuales.

Según la norma tributaria se tienen los siguientes 3 niveles:

Select Case 5ta categoria 01

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

Para esto se tendrá un cuadro con los ingresos proyectados anuales que se requieren evaluar.

Se estaría definiendo en la aplicación como constantes los 3 valores. También combinando la orden con la aplicación Do While. .. Loop para poder llenar el cuadro.

Select Case 5ta categoria 02

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

La orden escrita en la macro es la siguiente:

Const a = 15
Const b = 21
Const c = 30
Sub Principal2()
Dim X As Variant, I As Byte
I = 2
Do While Cells(I, 2) <> ""
X = Cells(I, 2)
Select Case X
Case 0 To 98550: Cells(I, 3) = a
Case 98551 To 197100: Cells(I, 3) = b
Case Is > 197100: Cells(I, 3) = c
End Select
I = I + 1
Loop
End Sub

Cabe indicar que el último tramo tiene como tope un número infinito. La tabla inicial tenía llenado sólo los importes proyectados en la columna B donde se colocaba la base imponible de retención de quinta categoría proyectada por el año.

 

Elaborado por: Rosa Elvira Romero Matos

Deja una respuesta

Los campos requeridos estan marcados con *.