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
(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
(Para mayor visualización de la imagen, hacer click en la misma)
Elaborado por Paola Salazar
Macro adjunta