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.
Espero que me puedan ayudar necesito hacer lo siguiente.
quiero combinar dos libros excel .
el cual contiene3 hojas cada libro.
las hojas contienen informacion.
necesito por ejm que la informacion de la hoja1 del libro2 se copie en la hoja1 del libro1, pero conservando la informacion que esta en cada hoja.
igual con las dejas hojas(la informacion de la hoja2 del libro2 se copie en la hoja2 del libro1, pero conservando la informacion.
dejo los ejemplos.
de antemano muchas gracias.
libro1.xls
libro2.xls