Jump to content

Recommended Posts

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.

Link to post
Share on other sites

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


    

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy