Descargar Plantilla y Demo
Dim sueldo As Double
Dim sempleado, pempleado As Double
Dim sempleador, pempleador, arl, caja, sena, icbf As Double
Dim prestempleado, prestempleador As Double
sueldo = Range("b1").Value
'calculo aportes empleado
sempleado = sueldo * 0.04
pempleado = sueldo * 0.04
prestempleado = sempleado + pempleado
'calculo aportes empleador
sempleador = sueldo * 0.085
pempleador = sueldo * 0.12
arl = sueldo * 0.00522
caja = sueldo * 0.04
sena = sueldo * 0.02
icbf = sueldo * 0.03
'calcula la prestacion empleador
prestempleador = sempleador + pempleador + arl + caja + sena + icbf
Range("b3").Value = sempleado
Range("b4").Value = pempleado
Range("b5").Value = prestempleado
Range("b10").Value = sempleador
Range("b11").Value = pempleador
Range("b12").Value = arl
Range("b13").Value = caja
Range("b14").Value = sena
Range("b15").Value = icbf
Range("b16").Value = prestempleador
Range("b18").Value = prestempleado + prestempleador