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
Gracias maestros por la ayuda que brindan.
Como podría hacer una macro que ponga un texto dependiendo el contenido de una celda.
Me explico si en la celda A1 esta cualquier información que en el rango B1:F1 asigne el texto CANCELADO caso contrario que deje en blanco
y asi sucesivameente si esta en la celda A2 igual que ponga B2:F2 asigne el texto CANCELADO caso contrario que deje en blanco
lo mismo en la A3, A4 hasta la A10.
Gracias por vuestra ayuda.
Editado el por ANIBAL3