Codigo Macro Planilla

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