PATILARGO

Muchas gracias @Antoni, ha mejorado muchisimo,un gran trabajo maestro,a seguir aprendiendo.

Hace 6 horas, Antoni dijo:

Deberías subir tu archivo para poder probar.

Perdona Antoni, lo subo ahora y muchas gracias, en este solo copia los del turno de mañana, como siempre muchas gracias

Plantilla de Servicios5.xlsm

Gracias ha mejorado un poco pero sigue siendo muy lento ,si se te ocurre cualquier mejora te lo agradeceria , muchas gracias.

OK , Muchas gracias @Antoni, como siempre un crack, lo pruebo y te digo

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

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.

Muchisimas gracias Luis, perfecto.

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.

Perdon, se me paso, que se rellenen de un color diferente al resto, de las celdas, muchas gracias 

Muy buenas a tod@s y muchas gracias de antemano, tengo un calendario en el que quisiera que se rellenaran las celdas desde una fehca hasta otra, una vez se lo indique las mismas., para no tener que hacerlo manualmente,muchas gracias por su ayuda.

RELLENAR FECHAS.xlsx

Buenas tardes , he estado trabajando en  el archivo, y he conseguido que haga lo que queria, pero va muy lento y no consigo agilizarlo,, os agradeceria que me indicarais  como poder agilizrlo para que fuera un poco mas rapido y tambien   como podria hacer para que a parte de los sabados y domingos me pusiera los festivos que le indicara.

Muchas gracias por su ayuda.

Plantilla de Servicios2.xlsm

Muchisimas gracias, mirare el macro que me has pasado e intentare adaptarlo , muchas gracias y sobre todo agradecerte las molestias @tierra_pampa

Buenos dias y muchas gracias @tierra_pampa por tu respuesta, pero perdona por mi desconocimiento, ese parte del macro donde deberia de ponerla, lo dicho muchas gracias por la colaboracion y ayuda.

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.