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, estoy empezando en la gestión y todavía no me manejo mucho con excel. Soy muy novata.
Necesito realizar una organización de trabajo de personal.
Son 10 empleados, distribuir en 6 puestos de trabajo, las condiciones que tiene que cumplir son:
-En puesto 5 y 6 una persona que no se repita en 9 semanas.
- En Q1 a Q4 2 personas por puesto que no repitan pareja ni puesto. En la secuencia sé que tienen que repetir unas dos veces por puesto
- Que todas las personas coincidan con todas y en difientes Q.
Gracias,
Un saludo,
María
Tabla final.docx