Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola buenas, en primer lugar gracias por atenderme, y espero que me puedan ayudar, mi problema es el siguiente:
Necesito una planilla de trabajo en Excel, para ocho empleados y configurar un cuadrante de turnos de trabajo con las siguientes variantes:
· Como máximo dos Noches seguidas y dos o tres días seguidos, Libres.
· Fines de semanas (Sábados y Domingos), al 50% es decir, dos fines de semanas en el mes, Libres.
· Total de horas trabajadas por cada empleado en el Año (1808 h.)
Personal: 8 Empleados.
Por / Día: 6 Empleados trabajando y 2 Empleados de descanso.
Días: Lunes, Martes, Miércoles, Jueves, Viernes, Sábado, domingo.
Turnos: Mañanas = 2 Empleados, Tardes = 2 Empleados, Noches = 2 Empleados, Libres = 2 Empleados
Horarios: Mañanas = de 7:00 a 15:00, Tardes = de 15:00 a 23:00, Noches = de 23:00 a 7:00. (Turnos de 8 h.).
Espero que los datos y las variantes, sean suficientes para que me puedan ayudar.
Gracias. Saludos…
Atte.: Broker