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 días,
En el archivo que adjunto hay tres hojas.
En la primera está la macro que funciona correctamente con un tipo de datos concreto.
En la segunda hoja está otra "versión" de la información tal y como la copio de mi ordenador a la hoja de excel (sólo cambia el bloque A).
En la tercera hoja está la informacion tal y como debería quedar para poder hacer cálculos entr el bloque A y C después de utilizar la macro.
Pienso que haciendolo de este modo se puede ver más claro lo que planteo.
Gracias
Borja
Libro3 (1).zip