Ayuda, con macro

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Ayuda, con macro

Notapor eze2907 » 03 Oct 2018 11:47

Hola buen día amigos,

Inicialmente agradecer a los amigos que me han ayudado con mis consultas anteriores.-

Hoy quisiera ver si me pueden ayudar respecto a como crear un macro que me haga lo siguiente:

En un archivo de excel, tengo la hoja1 en la cual las celda desde la A3 hasta la A100, contienen un hipervinculo a una carpeta especifica por cada fila, lo que quiero es que el macro me diga si en esa carpeta existe algun archivo que sea pdf y que el nombre de ese archivo inicie con "proyecto".

Espero haberme dado a entender,

de antemano gracias por su ayuda
eze2907
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 6
Registrado: 27 Sep 2018 14:20

Re: Ayuda, con macro

Notapor Antoni » 03 Oct 2018 13:45

Prueba esta macro:

Código: Seleccionar todo
Sub ArchivosPDF(): On Error Resume Next
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FilesystemObject")
For x = 3 To Range("A" & Rows.Count).End(xlUp).Row
   Application.StatusBar = Range("A" & x).Hyperlinks(1).Address
   Set fold = fso.GetFolder(Range("A" & x).Hyperlinks(1).Address)
   Range("A" & x).Select
   For Each f In fold.Files
       If LCase(Right(f.Name, 3)) = "pdf" And _
          LCase(f.Name) Like "proyecto*" Then
          ActiveCell.Offset(0, 1).Select
          ActiveCell = f.Name
       End If
   Next
Next
Application.StatusBar = False
End Sub
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5710
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados