Saltar al contenido

Plantilla de puestos ocupados


pegones1

Recommended Posts

Cada año que pasa es más difícil saber qué puesto ocupamos o vamos a ocupar en los próximos meses, con tanta rotación interna o externa, o si vamos a ser del colectivo de desocupados o población inactiva.

Hace unos años lo más normal era seguir ocupando el mismo puesto hasta la prejubilación o la jubilación pero eso se acabó con la crisis económica y la reforma laboral. Ahora lo normal es pasar por varios puestos al año (en mi caso 4 este año que finaliza) o por el puesto de desempleado.

Cada empresa que nos contrata nos coloca en una mesa o en un despacho y, con tanto cambio, es difícil conocer a los compañeros de curro. Para hacer más fácil saber el puesto ocupado o desocupado llega esta plantilla que he descrito en mi blog.

Puestos corrientes | Pedro Wave for Excel Guys

¡Que el próximo Año Nuevo 2014 ocupes el puesto al que aspiras!

(sin peloteos, enchufes ni ninguneos)

34shvus.jpg

29-12-2013: Recomiendo bajarse la 2ª versión "Puestos Corrientes PW2" que incorpora:

  • Detección del nombre del archivo (por si se cambia). Nombres: NombreArchivo y HojaPuestos.
  • Lista dinámica en la validación de datos de la hoja "Puestos" con el nombre: ListaEmpleados.
  • Detección de puestos duplicados en la hoja "Puestos". Formato condicional: =CONTAR.SI(Puestos;A1)>1

Puestos Corrientes PW1.rar

Puestos Corrientes PW2.rar

Enlace a comentario
Compartir con otras webs

Macro, mejor decir que son presuntos porque aún siguen ocupando sus puestos ganados a pulso y aún no se les ha encausado.

Como nombre de la plantilla barajé varias opciones:

  • Puestos ocupados (por gente estresada por el trabajo extra que no se les da a los desocupados - es el eterno problema de la redistribución del trabajo en este país)
  • Puestos transparentes (conseguidos públicamente en la privada con un buen CV, experiencia y perfil idóneo para el puesto, ¡los menos!)
  • Puestos empleados (usados por los empleadores en su propio beneficio, sin redistribuir sus beneficios y su riqueza)
  • Puestos giratorios (ver enlace de Wikipedia: Puerta giratoria, pantouflage o revolving door)
  • Puestos rotatorios (dispuestos al cambio para adaptarse al trabajo precario, que es lo que está de moda)
  • Puestos privados (realmente son los de los funcionarios públicos, pues no puede entrar cualquiera en su parcela privada)
  • Puestos dec-entes (son los creados ficticiamente por los entes públicos o entidades privadas para su lucro)
  • Puestos enchufados (los que se consiguen con enchufe)
  • Puestos excel-entes (los puestos para gente Excel-ente, que no para los aficionados a Excel)
  • Puestos corrientes (la mayoría somos empleados corrientes y la minoría excelentes o negativos)

Me incliné por este último pues son puestos corrientes los de la mayoría de los empleados y es un símil de los puestos conseguidos por enchufe y su relación con la corriente eléctrica (vaya paja mental) y el lobby eléctrico de presión, valga la redundancia entre lobby y presión.

Como dije en mi blog, antes de usar la plantilla hay que borrar los datos ficticios incluidos como ejemplo. Esta plantilla sirve por ejemplo para organizar un banquete de bodas colocando en sus puestos a los convidados de piedra en la hoja "Puestos".

Enlace a comentario
Compartir con otras webs

Recomiendo bajarse la 2ª versión "Puestos Corrientes PW2" desde el primer mensaje que incorpora:

Detección del nombre del archivo (por si se cambia).

NombreArchivo

=CELDA("nombrearchivo")[/CODE]

HojaPuestos

[CODE]=EXTRAE(NombreArchivo;ENCONTRAR("[";NombreArchivo);ENCONTRAR("]";NombreArchivo)-ENCONTRAR("[";NombreArchivo)+1)&"Puestos!"[/CODE]

Lista dinámica en la validación de datos de la hoja "Puestos".

ListaEmpleados

[CODE]=DESREF(Empleados!$A$2; 0; 0; CONTARA(Empleados!$A:$A) - 1)[/CODE]

Detección de puestos duplicados en la hoja "Puestos". Formato condicional:

[CODE]=CONTAR.SI(Puestos;A1)>1[/CODE]

En rojo los puestos duplicados:

3162s79.jpg

Enlace a comentario
Compartir con otras webs

Vuelvo a subir la 2ª versión en el mensaje #1 pues no actualicé la fórmula con el hipervínculo que lleva al puesto ocupado en la hoja "Puestos" desde la celda J8 de la hoja "Perfil" y que es el "alma mater" de este aporte (es una fórmula matricial por lo que se debe introducir presionando a la vez las teclas Ctrl + Shift + Enter)

=SI.ERROR(HIPERVINCULO(HojaPuestos & DIRECCION(MAX((Puestos=$G$5)*FILA(Puestos));MAX((Puestos=$G$5)*COLUMNA(Puestos)));$G$5);"")[/CODE]

La misma fórmula está en la columna B de la hoja "Empleados", pero haciendo referencia a la columna A con el nombre de los @Empleados, para poder seguir los puestos que ocupan en las mesas.

[CODE]=SI.ERROR(HIPERVINCULO(HojaPuestos & DIRECCION(MAX((Puestos=[@Empleados])*FILA(Puestos));MAX((Puestos=[@Empleados])*COLUMNA(Puestos)));[@Empleados]);"")[/CODE]

En el Administrador de Nombres se ha definido Puestos =Puestos!$A$1:$Z$50

Con 12 filas de mesas y 3 bancadas de 12 puestos en cada fila, hacen un total de 432 puestos a ocupar, que se pueden reducir o aumentar según sea el tamaño de la oficina o del banquete.

¿Es suficiente para los puestos que ocupáis tus colegas y tú o para tu banquete de bodas?

Esta plantilla la he creado pensando en ayudar a los responsables de los recursos humanos - RRHH, a los jefes de proyectos para colocar a sus equipos de trabajo, a los responsables de etiqueta y protocolo en los banquetes, a los responsables de reuniones diplomáticas y de negocios, a los organizadores de eventos y comidas de trabajo y a cualquiera que en estas fiestas quiera celebrar una reunión familiar sin sentar juntas a las suegras con las nueras.

Si algún empleado tiene la columna B vacía es que no se encuentra colocado en la hoja "Puestos".

¿Te sitúas? ¿Te colocas? ¿Te posicionas? ¿Te ocupas? ¿Te enchufan? ¿Te ayuda o te descoloca?

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 98 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • He descargado tu archivo y funciona correctamente, revisa el video adjunto:
    • Hola perdon no pegue todo mi codigo, no lo copie bien es este al principio: Sub MacroG() Application.ScreenUpdating = False       Mensaje = "No se pueden guardar los datos aún hay celdas vacías:" 'Recorremos las celdas For i = 1 To 6     If Sheets("INGRESO").Range("DATO" & i).Value = "" Then         Valor = Sheets("INGRESO").Range("DATO" & i).AddressLocal         Valor1 = Valor1 & VBA.vbNewLine & Valor     End If   Next i   If Not Valor1 = "" Then     MsgBox Mensaje & VBA.vbNewLine & Valor1, vbExclamation, "Ingreso de Productos" Else     End If   Donde cada celda le cambie el cuadro de nombre C4= DATO1 C5= DATO2 C6= DATO3 C7= DATO4 F4= DATO5 F5= DATO6 asi estoy seleccionando las celdas Comparto mi macro que esta en la nube https://files.fm/u/uzb68tetng  
    • No has especificado cuales son las celdas a validar si están vacías, te he puesto un ejemplo para el rango A1:A6, corrige a voluntad: Sub Borrar() '------- Corregir las celdas según necesidad If Range("A1") = "" Or _ Range("A2") = "" Or _ Range("A3") = "" Or _ Range("A4") = "" Or _ Range("A5") = "" Or _ Range("A6") = "" Then MsgBox "Hay celdas vacías", vbInformation Exit Sub End If '------- Range("C5").ClearContents Range("C7").ClearContents Range("C8").ClearContents Range("C23").ClearContents Range("C24").ClearContents Range("C39").ClearContents Range("C40").ClearContents Range("C55").ClearContents Range("C56").ClearContents Range("C71").ClearContents Range("C72").ClearContents Range("C87").ClearContents Range("C88").ClearContents Range("C103").ClearContents Range("C104").ClearContents Range("C119").ClearContents Range("C120").ClearContents Range("C135").ClearContents Range("C136").ClearContents Range("C151").ClearContents Range("C152").ClearContents End Sub  
    • Hola me podrian ayudar a corregir esta macro, ya que que he puesto la condicion que no se ejecute por si hay valores vacios en 6 celdas y siempre se ejecuta, comparto codigo:     Selection.ClearContents     Range("C5").Select     Selection.ClearContents     Selection.ClearContents     Range("C7").Select     Selection.ClearContents     Selection.ClearContents     Range("C8").Select     Selection.ClearContents     Range("C23").Select     Selection.ClearContents     Range("C24").Select     Selection.ClearContents     Range("C39").Select     Selection.ClearContents     Selection.ClearContents     Selection.ClearContents     Range("C40").Select     Selection.ClearContents     Range("C55").Select     Selection.ClearContents     Range("C56").Select     Selection.ClearContents     Range("C71").Select     Selection.ClearContents     Selection.ClearContents     Range("C72").Select     Selection.ClearContents     Range("C87").Select     Selection.ClearContents     Range("C88").Select     Selection.ClearContents     Range("C103").Select     Selection.ClearContents     Range("C104").Select     Selection.ClearContents     Range("C119").Select     Selection.ClearContents     Range("C120").Select     Selection.ClearContents     Range("C135").Select     Selection.ClearContents     Range("C136").Select     Selection.ClearContents     Range("C151").Select     Selection.ClearContents     Range("C152").Select     Selection.ClearContents     Range("A1").Select     Selection.End(xlUp).Select     Selection.End(xlUp).Select     Selection.End(xlUp).Select     Selection.End(xlToLeft).Select     Selection.End(xlToLeft).Select     Selection.End(xlToLeft).Select     Selection.End(xlToLeft).Select     Selection.End(xlUp).Select     Selection.End(xlUp).Select     Selection.End(xlUp).Select     Selection.End(xlToLeft).Select     Range("C4").Select         End Sub
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.