Hola buenas tardes.

Tengo un archivo en donde busco diferentes archivos que están ubicados en diferentes rutas y subcarpetas. el cual funciona bien.

La función busca el nombre del archivo y me muestra la ubicación de ella (ruta completa) no importando si esta en subcarpetas.

Me era util cuando tenia pocos archivos que ubicar, pero ahora cada vez son mas y mas, me gustaría hacer esto mismo, pero poniendo yo el nombre de manera parcial(columna b), ya que no siempre tengo el nombre completo. y poner en otra celda la extension (columna c). y que la función pueda buscar con estos 2 condiciones.

espero me puedan ayudar.

Muchas gracias

M

Busca archivos en ruta y subcarpetas.xlsm

Buenas, puedes utilizar un condicional  para comprobar las 2 opciones, algo así:

If InStr(1, LCase(tmpFichero.Name), LCase(sFicheroBuscado)) > 0 And _
         LCase(Mid(tmpFichero, InStr(1, tmpFichero, "."))) = LCase(Range("C8")) Then

 

saludos