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,
Necesito generar una macro para generar turnos de empleados en base a los siguientes criterios:
- Horario 07:00-15:00
· Establecer 30 minutos de Descanso: tienen que asignarse habiendo transcurrido 2 horas desde las 07:00 y 1 hora y media antes de las 15:00
· El total de descansos a la vez no puede superar el 12% del total de empleados en turno.
No sé si alguien puediera echarme una mano o si existe alguna macro que pueda servirme de base para ir modificando algunos parámetros de la misma.
Gracias.