AYUDA CON PLANTILLA

[PATILARGO]

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.

[PATILARGO]

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

    

[Antoni]

Añade Application.ScreenUpdating = False al principio de cada macro.

[PATILARGO]

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

[PATILARGO]

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

[Antoni]

Deberías subir tu archivo para poder probar.

[PATILARGO]

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

[Antoni]

Esto es lo máximo que se puede reducir el proceso.

Abre el adjunto y pulsa sobre la flecha azul, se copiarán los turnos de mañana, tarde y noche del día de la fecha que hay en C3.

Plantilla de Servicios5 (Full).xlsm

[PATILARGO]

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