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
Buenas tardes.
A ver si me podeis ayudar porque de programación estoy pegado.
Tengo dos libros con estos datos:
FABRICANTE REFERENCIA NOMBRE PRECIO STOCK CATEGORIAS
Lo que quiero es comparar el libro2 con respecto al libro1 y hacer lo siguiente:
Si en el libro2 hay alguna referencia nueva poner en un tercer libro todos los datos de esa fila.
Si una referencia ha cambiado de precio poner en el tercer libro todos los datos de esa fila.
Si una referencia ha cambiado de stock lo mismo.(el stock solo toma valores 0, 1 y 100).
Y si en el libro2 no hay alguna de las referencias del libro1 poner esa fila pero con stock a cero.
Yo lo veo bastante complicado pero espero que me podais ayudar...
Un saludo...