Macro para mover ficheros, con su nombre original, a directorio en función del valor de una celda del mismo 1.0.0

Qué tal,

Dejo este aporte para mover masivamente archivos a otro nuevo directorio, creado a partir de un valor de una de sus celda y con el nombre original del archivo. Supongamos que hemos ido guardando ficheros por nº de factura y ahora queremos que, aparte del nº de factura los ordenemos por clientes.

La macro busca en la celda donde está el nombre del cliente, crea el directorio con el nombre del cliente y mueve el fichero a esa carpeta, conservando el nombre original con el nº de factura.

1. Evidentemente, la hoja y la celda que contine el valor del directorio a crear, debe ser la misma para todos los ficheros
2. En el código hay un valor de hoja, celda y directorio destino por defecto. Podéis cambiarlo por vuestros datos si siempre van a ser los mismos
3. Permite escoger la hoja y la celda que contiene el valor del directorio a crear, para no usar los valores que están por defecto
4. Permite escoger el directorio destino, para no usar el que está por defecto
5. Permite buscar el directorio origen de vuestros ficheros
6. Permite buscar el nombre de vuestros ficheros. No hace falta introducir el nombre entero, pudiendo introducir solo parte del mismo (pongamos "FACTU")
7. Los datos usados se copian en la hoja1 del fichero, que tiene el color de fuente en blanco. Podéis cambiarlo para ver los datos que usa

Espero que os guste y os sirva.