Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Guest José Sáez

Calcular salario bruto

Recommended Posts

Guest José Sáez

Hola

 

He estado buscando por el foro una fórmula para calcular el salario bruto y me he encontrado con este hilo

Pero el último excel que aparece, no funciona cuando lo descargas. Da un error y no deja abrirlo.

Me interesa sacar el salario bruto sin tener que poner la retención del IRPF. ¿Me podría decir alguien la fórmula para sacar esto? ¿O compartir ese excel?

 

Muchas gracias,

Un saludo.

Share this post


Link to post
Share on other sites
Guest José Sáez

Hola,

 

Muchas gracias.

¿Podrías indicarme la fórmula que has seguido (usando el excel de irpf eu) para calcular el salario bruto? Me interesa saber como sacarlo sin tener que poner el IRPF, es decir solo salario bruto, número de pagas, categoria profesional, estado civil y creo que no me dejo ninguno más.

 

Muchas gracias Antoni

Share this post


Link to post
Share on other sites
Guest José Sáez

@Antoni 

Para sacar el total bruto por ejemplo con 1500 euros mensuales en 12 pagas, según veo en el código  seria de la siguiente manera:

'Calcular salario anual
If sMensual = True Then
   If s14 = True Then
      anual = anual * 14
   Else
      anual = anual * 12
   End If
End If

ActiveSheet.Range("D13") = anual

'Salario bruto
If sBruto = True Then
   Unload Me
   Exit Sub
End If

'Salario neto
Do While Int(ActiveSheet.Range(Dirección)) < anual
   ActiveSheet.Range("D13") = ActiveSheet.Range("D13") + 1
Loop
Unload Me
End Sub

Private Sub Label2_Click()

End Sub

Private Sub s14_Click()
If s14 = True Then
   Dirección = "D42"
   Hoja2.Select
Else
   Dirección = "D41"
   Hoja1.Select
End If

Pero no entiendo muy bien el bucle que se hace, ¿podrías explicarmelo?

 

Muchas gracias,

Muy amable.

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png