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
Me podrian ayudar con esto.
Me pidieron que hiciera un consolidado de varias hojas(6) de varios archivos en uno solo para realizar un grafica consolidada.
El consolidado se llama Diagnostico zona 1 y los otros es de donde tomo la información.
Lo hice manualmente mediante suma, esto se puede hacer mediante un macro? y que quede para una numero indeterminado de archivos .
Anexo el ejercicio.( no me deja por el peso)
http://www.mediafire.com/file/l6c4c6wiw9kbbc6/Grafica+consolidada.rar
Muchas gracias por su ayuda.