Jump to content

PATILARGO

Members
  • Content Count

    136
  • Joined

  • Last visited

Posts posted by PATILARGO

  1. Buenos dias, he siguido mirando lo que necesito y he conseguido que haga lo que quiero, tarda un poco , pero lo hace  ,os facilito el macro que seguramente sera muy mejorable y se podra hacer mas facil, si se os ocurren mejoras para hacerlo mas rapido y sencillo os estaria super agradecido.

     

    Sub ServicioMañana()
    '
    ' ServicioMañana Macro
    ' Copia todos los componentes de Mañana en la Hoja Servicio Diario
    '

    '
        Sheets("trabajo").Select
        
        Turno = Range("A12").Value
        FilaFecha = Range("A13").Value
        
       Call BorrarTurnoDiario
       
        
        
        Sheets("trabajo").Select
        
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha, Criteria1:="M"
        Range("B15:B203").Select
        
        Selection.Copy
        Sheets("TURNO DIARIO").Visible = True
        Sheets("TURNO DIARIO").Select
         
        
        
        
        Range("C10").Select
        
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
            
        
        Sheets("trabajo").Select
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha

     

    '
    ' ServicioTarde Macro
    ' Copia el personal de Tarde en la hoja Turno Diario
    '

    '

    Sheets("trabajo").Select

        Turno = Range("A12").Value
        FilaFecha = Range("A13").Value
        
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha, Criteria1:="T"
        Range("B15:B203").Select
       
        Selection.Copy
        
         Sheets("TURNO DIARIO").Select
       
        Range("C42").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Sheets("trabajo").Select
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha
        
    End Sub


    Sub ServicioNoche()
    '
    ' ServicioTarde Macro
    ' Copia el personal de Noche en la hoja Turno Diario
    '

    '
        Turno = Range("A12").Value
         FilaFecha = Range("A13").Value
         
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha, Criteria1:="N"
        Range("B15:B203").Select
        
        Selection.Copy
        Sheets("TURNO DIARIO").Visible = True
        Sheets("TURNO DIARIO").Select
        
        Range("C80").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Sheets("trabajo").Select
        ActiveSheet.Range("$F$13:$NI$388").AutoFilter Field:=FilaFecha
        
        Range("B13").Select
    End Sub


        

  2. Buenos dias y espero que tod@s esteis bien con la situacion en la que nos encontramos, llevo tiempo trabajano con una plantilla para llevar el control de un turno de trabajo, despues de intentarlo no consigo que indicando la fecha que quiero buscar en la hoja TURNO DIARIO , me rellene con el nombre de las personas que trabajan de MAÑANA (M), TARDE (T)  y NOCHE (N)., esta necesidad es debido a que muchos compañeros cambian turnos y asi poder saber quien entre en cada turno de trabajo.Plantilla de Servicios5.xlsm

     

    Muchas gracias de antemano y sobre todo seguir asi por que gracias a este foro muchos estamos descubriendo un mundo apasionante.

  3. RELLENAR FECHAS.xlsxRELLENAR FECHAS.xlsxPerdonar , lamento no haberme explicado correctamente, de verdad que lo siento y agradezco mucho vuestra ayuda, la idea es poner la fecha de inicio y de fin , y que desde el inicio hasta el fin de las fehcas las celdas comprendidasd entre ambas se coloreen.

    por ejemplo el aluno 1 tiene las fechas 13.8.2020 hasta 3.9.2020, pues en su fila que las celdas comprendidas en ese rango se coloreen de un color.

     

    De verdad que lamento no haberme explicado bien y agradezco mucho vuestra ayuda.

  4. Muy buneas y muchas gracias de antemano, estoy intentado hacer una plantilla para generar unos turnos  de trabajo,  en la misma hay una macro que genera un cuadrante de trabajo para los turnos que se necesitan en este caso 11 , esta en la Hoja grafico, la idea a la vez que me genera el caudrante me los copie los datos en la hoja trabajo, el macro que uso para generar el cuadrante lo he cogido de esta pagina, creo que era del maestro @Antoni y no soy capaz de que haga lo que les indique, he conseguido que lo ponga pegando los datos, pera cada vez que se modifica se pierde la formual, asi como que me ponga los dias  y me marque los sabados y domingo.

    Por eso agradeeria mucho su ayuda.Plantilla de Servicios.xlsm

     

    Espero que puedan ayudarme muchas gracias.

×
×
  • Create New...

Important Information

Privacy Policy