Jump to content

[CERRADO] Autonomina y Recalculo


Guest pinobea

Recommended Posts

Guest pinobea

Felices Reyes Magos a todos. Os subo un archivo que es una nomina y que me gustaria

que se autocalculase sola. Me explico:

Introduciendo la cantidad en Liquido total a percibir (A-B), calculase:

Teniendo en cuenta que ha realizado en el mes 142,75 horas, de las cuales 7 horas son festivas.

1.- Salario Base que es (100 horas de contrato por 5,45 €/hora)

2.- Prorrata de pagas extras (2 pagas)

3.- Actividad (Diferencia entre 142,75 y 100), osea 42,75 horas.

4.- Domingos y Festivos (7 horas festivas * 7,07).

Y al cambiar la cantidad en Liquido total a percibir (A-B), recalculase todas las

cantidades.

Gracias de antemano, espero que no sea muy complicado para vosotros y que se pueda hacer.

Nomina.zip

Link to comment
Share on other sites

Hola pinobea, si me permites el comentario, la forma que pretendes calcular la nómina no es la correcta, te explico, supongo que lo que quieres comprobar es si lo que te han pagado corresponde con lo que has trabajado, si es así, tan solo con poner el neto cobrado no puedes calcular todo lo demás, es mejor al revés, tu pones días u horas trabajadas y de ahí te saque el total, ya que con el neto nunca puedes saber si has trabajado domingos o no, sería super complicado, te dejo el adjunto le echas un vistazo y sobre ese podemos seguir trabajando, ok?

Un saludo, Germán.

PD: Y si hemos acertado, recuerda que hay opciones para todo, así que si quieres y no te importa visita este link:

Nomina_V.2_7-1.zip

Link to comment
Share on other sites

Guest pinobea

Esta mu bien, pero eso ya lo tengo echo. Te explico porque quiero hacerlo de la forma que quiero.

Tengo que hacer las nominas de 300 personas y es más rapido:

Si pepe cobra liquido a percibir por ejemplo 900 Euros, meter esa cantidad en la nomina y que se calcule sola.

Que calcule las horas de contrato, las de actividad (Extras) y todo lo demás. Se que es muy complicado

Estoy atascado, pero es la unica forma de hacer 300 nominas en 1 dia. Gracias de antemano.

Te subo un ejemplo que hice, pero no es real, ya que lo que hacia era hallar tantos por ciento.

Auto Nomina.rar

Link to comment
Share on other sites

Hola pinobea, es que esto. . . .

Tengo que hacer las nominas de 300 personas y es más rapido:

Si pepe cobra liquido a percibir por ejemplo 900 Euros, meter esa cantidad en la nomina y que se calcule sola.

Que calcule las horas de contrato, las de actividad (Extras) y todo lo demás. Se que es muy complicado. Estoy atascado, pero es la unica forma de hacer 300 nominas en 1 dia.

. . . . creo que es imposible, como vas a saber poniendo el neto, cuantos días ha trabajado, si a librado alguno, si ha estado de baja, si ha echado horas extras, si ha trabajado algún domingo o festivo, si ha llegado tarde algún día, tu no quieres una nómina, tu pides directamente un embrujo adivinatorio.

Por esto supongo que no te han contestado, es que para milagros, necesitamos mucho más tiempo.

Como consejo, tienes que llevar un control de todo eso por trabajador, así tan solo con poner un código de trabajador te haría la nómina automáticamente, y si no le puedes decir a tu jefe o que te de más días, o que contrate a más gente, o también te demuestre como se hace si es tan listo.

Hay programas de nóminas incluso gratuitos, pero también tienes que añadir todos los datos de los trabajadores para que luego la calcule.

Lo siento, pero como mínimo tienes que añadir lo que te puse en el archivo, y así y todo es algo muy aproximado, nunca real al 100%.

Saludos, Germán.

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
    • Hola a todos, soy nueva por aquí     Tengo una duda de una exportación de una tabla SQL, donde los precios de los productos, en lugar de exportarlos en formato moneda con decimales, me los exporta en el siguiente formato: "00.000.000" está en formato "número", pero no sé como hacer para pasarlo a un formato de moneda, ya que los últimos tres "0" me sobran y me suma los 8 dígitos, cuando los 3 últimos no valen.    Por ejemplo:  10.123.001 (Es un producto que vale 10,12€ Como puedo hacer para eliminar el resto de dígitos? No encuentro la manera y claro, tampoco puedo realizar operaciones en excel puesto que me suma todos los dígitos...   No sé si me he explicado bien...   Gracias!!  
    • Buenas , soy nuevo en esto de Macros , pero investigando he dado esta solución , El macro funciona con el directorio "C:\Excel\"  la llamada al Macro es " Analizar_archivos" desde Libro.xlsm Option Explicit Dim ArchivoAbrir As Excel.Workbook Sub Analizar_Archivos() Dim Dir, Carpeta, Archivo As Object Dim Ruta As String Dim Listado() As Variant Set Dir = CreateObject("Scripting.FileSystemObject") Ruta = "C:\Excel\" ' ruta donde mirar On Error GoTo Error Set Carpeta = Dir.GetFolder(Ruta) For Each Archivo In Carpeta.Files ' recorremos los archivos de la carpeta If InStr(1, Archivo.Name, "~$") = 0 And _ InStr(1, Archivo.Name, "xlsm") = 0 And _ Archivo.Name <> "C:\Excel\Libro.xlsm" Then ' exclusiones AbrirarchivoExterno (Ruta & Archivo.Name) ' abrimos el archivo End If Next Exit Sub Error: MsgBox "Ruta inexistente", vbCritical End Sub Sub AbrirarchivoExterno(Archivo) On Error Resume Next If Len(Archivo) > 0 Then Set ArchivoAbrir = Workbooks.Open(Archivo) Workbooks.Open(Archivo).Application.Visible = False ' abrimos el archivo en modo invisible Comprueba ' comprobamos el archivo abierto Cerrar (Archivo) ' cerramos el archivo abierto End If End Sub Sub Cerrar(Archivo) Set ArchivoAbrir = Workbooks.Open(Archivo) ArchivoAbrir.Save ArchivoAbrir.Close End Sub Sub Comprueba() Dim Texto As String Texto = Range("Bc30").Value Select Case Texto Case Is = "hogares" Range("bc30").Value = "infiernos" Case Is = "alquileres" Range("bc30").Value = "placeres" Case Is = "compartir" Range("bc30").Value = "genesis" Case "infiernos", "placeres", "genesis" Case Else Range("Bc30").Value = "" End Select End Sub    suerte.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy