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 a todos,
Soy nuevo en en foro y tengo la siguiente duda.
En la columna N3 a N1oo tengo distintos estados (p.e: Orden recibida, Orden en proceso, Orden Despachada, etc). Cada renglón es una nueva orden.
Lo que preciso, es que cuando cambie el estado, se ejecute una macro.
Desde ya muchas gracias!!