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
Estimados compañeros:
En primer lugar me gustaría agradeceros el servicio que prestáis a la comunidad y dicho esto... al lio.
Tengo unos productos en mi base datos (2337) y unas palabras que he importado en una columna a la derecha (3132).
Lo que necesito es ver cuales de esas palabras se encuentran dentro de lo campos de mis artículos, ya que deben ser eliminadas.
Necesitaría que los campos se cambiasen de color o algo así, ya que tengo que saber cuales son para cambiarlos en otro sistema que tengo.
Debido a que el archivo es más grande de lo que me permite el foro, lo he puesto en este enlace externo.
Seguramente no me he explicado todo lo bien que pudiera, por lo tanto si os falta algún fato, no dudéis en preguntármelo.
Muchas gracias de antemano y un saludo.