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
Hola buenas tardes.
Debido al trabajo debo estar comparando en un periodo unos archivos dentro de una carpeta o subcarpeta.
en base a la fecha de creacion o modificacion. pero tengo que estar viendo carpeta por carpeta y aveces son varios.
Con una macro intente listar los archivos de cualquier carpeta y subcarpeta, esto activandolo segun la celdaactiva.
El problema es que tiene algunos errores.
1. si la carpeta cuenta con subcarpetas me los manda a muchas filas abajo.
Mi idea es hoja(Así debe quedar)
Que con una macro pueda seleccionar la carpeta desde el buscador y me de la lista de archivos a partir de la fila 6.
siendo columna A= fecha de modificación, columna B =Fecha de creación y columna C=Nombre del archivo con hiperlink.
Con otro o con la misma macro poder seleccionar otra carpeta y sus subcarpetas, según sea el caso.
y me liste a partir de la columna F de la fila 6
Siendo La columna F=Nombre del archivo, columna H=fecha de creación, columna I=ultima modificación
Para así poder acceder y comparar mis archivos, directamente desde excel.
Muchas gracias
Mariano
Listar archivos de 2 carpetas para comparar.xlsm