Excel Avanzado

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

Excel Avanzado

Ejemplo de If then Else - Aplicado al cálculo de beneficios para el personal

| Sin comentarios

 

En una empresa dedicada a ventas, tenemos ciertos beneficios extras al personal del área comercial aparte de las comisiones.

1. Movilidad

Todo el área comercial se desplaza constantemente para cubrir rutas según zonas, los puestos de mando medio en adelante utilizan su movilidad propia y los demás usan el transporte público para realizar este recorrido mensual.

Se asigna a cada uno un monto específico: Si el sueldo está por encima de los 2500 soles, el monto será de 600 soles. Si está por debajo de 2500 soles, el monto será de 450 soles.

La macro estaría estructurada de la siguiente manera y se ejecutaría en la celda correspondiente al trabajador :

 

Sub calc_movilidad()
Dim sueldo As Integer
sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value
If sueldo >= 2500 Then
ActiveCell = 600
Else
ActiveCell = 450
End If

End Sub

 

movilidad

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

 

2. Alimentación

Aparte de la movilidad, cubrimos almuerzos del pesonal dentro del mes. Si el colaborador tiene un sueldo menor a 2000 soles se le cubre al 100% la alimentación en el concesionario de la empresa, por lo que el beneficio es de 200 soles. Si tiene un sueldo mayor a 2000 soles, la alimentación se cubre al 50% por lo que el beneficio sería sólo de 100 soles. Saldría un mensaje con la explicación del monto asignado.

La macro estaría estructurada de la siguiente manera y se ejecutaría en la celda correspondiente al trabajador :

 

Sub calc_alimentacion()

Dim sueldo As Integer
sueldo = Cells(ActiveCell.Row, ActiveCell.Column - 2).Value
If sueldo <= 2000 Then
MsgBox "Cubierto al 100%"
ActiveCell = 200
Else
MsgBox "Cubierto al 50%"
ActiveCell = 100
End If

End Sub

movilidad2

 

alimentacion

 

 

 

 

 

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

 

Elaborado por Paola Salazar

Macro adjunta

Macro-if then else-beneficios

 

Deja una respuesta

Los campos requeridos estan marcados con *.