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,
Me gustaría mover automáticamente archivos con un nombre X a una carpeta con nombre X. Adjunto en un zip (ejemplo.zip) el siguiente ejemplo:
Tengo las siguientes carpetas:
501
502
Tengo los siguientes archivos:
501.pdf
502.pdf
Me gustaría que el archivo 501.pdf fuera movido automáticamente a la carpeta 501. Lo mismo para el resto de los archivos.
Un saludo,
Jacexcel
ejemplo.zip