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
En lenguaje VBA :
Seleccionar un excel por el usuario y buscar una palabra Facturas en la primera hoja excel
2. Hacer una busqueda desde la celda inferior donde esta Facturas hasta encontrar varios directorios de varios .pdf
3. Copie todos esos archivos .pdf en un directorio C:\facturas de manera automática
Necesitaría modificar el ultimo bucle porque no para de hacer copias hasta que llega un punto de colapso total.
Edito: Ya he podido hacerlo para dos pdfs , pero necesitaria hacerlo para un numero generico de archivos .pdf
Edito 2: Ya lo he conseguido para un numero de veces n pero solo para un determinado de extensión . pdf o .xlsx
macro_v2.xlsm
Editado el por foroexcel1987