En 2/1/2024 at 18:40 , Israel Cassales dijo:

Para finalizar mi participación en esta consulta y consideras aún usar Excel, te paso una macro que cumple con lo que solicitas en tu libro:

Sub CopiarArchivos()
    Dim ws As Worksheet
    Dim srcPath As Range
    Dim destPath As Range
    Dim file As Variant
    Dim dest As Variant
    Set ws = ThisWorkbook.Sheets("Hoja1")
    Set srcPath = ws.Range("B4:B11")
    Set destPath = ws.Range("F4:F11")
    For Each file In srcPath
        If file.Value <> "" Then
            For Each dest In destPath
                If dest.Value <> "" Then
                    FileCopy file.Value, dest.Value & "\" & Dir(file.Value)
                End If
            Next dest
        End If
    Next file
End Sub

En ese código solo estoy validando que no haya celdas vacías en los rangos que proporcionaste, pero no estoy manejando qué hacer si surgen otros tipos de errores, éstos los debes de anticipar con lo que te he descrito anteriormente.

Saludines

 

Buenas tardes.

Y si en lugar de copiar todos los ficheros en las rutas indicadas, fuera un fichero, una ruta.

Es decir, el fichero de la b4, copiarlo en la ruta del f5, el fichero de la b5, copiarlo en la ruta del f6.

Puedes ayudarme ?

Muchas gracias por tu tiempo y ayuda !!!

 

Sube un archivo con datos de ejemplo.

Buenos días @Antoni

Este es el fichero ejemplo del compañero anterior.

Muchas gracias por tu ayuda !!

 

Copiar un rango de ficheros a diferentes carpetas.xlsm

Editado el el 26 de enero1 año por Jose_Monica

Hummm, trata de solo escribir en un foro, si revisas bien lo que habitualmente respondemos estamos en ambos foros:

https://foro.todoexcel.com/threads/traspaso-de-ficheros-a-carpetas.68721/

Hola @Abraham Valencia

Ya he contestado por el otro foro.

Por aquí, lo único que puedo decir es  ... gracias por tu tiempo !

Un saludo.