macro para crear hipervinculos automaticamente

<@> escribió en el mensaje news:

hola
quisiera saber si me podian ayudar en crear un macro para crear
hipervinculo hacia archivos pdf que tienen diferentes ruta en excel

Hola,
una macro que te cree un hipervínculo a un fichero ubicado en "c:\Fichero.Pdf", en la celda A1 de la hoja activa, con el texto "Mi Hipervínculo", con la información de pantala (el ToolTipText al pasar el puntero por encima) "Enlace a mi PDF", sería así:

'****************
ActiveSheet.Hyperlinks.Add _
Anchor:=Range("A1"), _
Address:="c:\Fichero.Pdf", _
TextToDisplay:="Mi Hipervínculo", _
ScreenTip:="Enlace a mi PDF"
'****************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

gracias esa parte me sirve, pero en mi caso una hoja de excel llamada
indice lo cual el vinculo es una codificacion ejem. 222-3333-4444 y los
archivos tienen el codigo que le corresponde,
en los cuales las estructura de las carpetas es la siguiente:

d:\PDF\A

dentro de la carpeta A se encuentra los PDF, como seria el macro pero
sin darle el nombre uno por uno de los archivos

gracias

<@> escribió en el mensaje news:

gracias esa parte me sirve, pero en mi caso una hoja de excel llamada
indice lo cual el vinculo es una codificacion ejem. 222-3333-4444 y los
archivos tienen el codigo que le corresponde,
en los cuales las estructura de las carpetas es la siguiente:

d:\PDF\A

dentro de la carpeta A se encuentra los PDF, como seria el macro pero
sin darle el nombre uno por uno de los archivos

Para listar los ficheros contenidos en una carpeta, puedes usar la propiedad '.FileSearch' del objeto 'Application'.
El siguiente ejemplo te listará en la columna 'A' todos los ficheros PDF que encuentre en la ruta especificada:

'*******************
Sub ListarPDFs(ByVal strCarpeta As String)
Range("A:A").Clear
With Application.FileSearch
.NewSearch
.LookIn = strCarpeta
.FileName = "*.pdf"
If .Execute <> 0 Then
Dim i As Long
For i = 1 To .FoundFiles.Count
ActiveSheet.HyperLinks.Add _
Anchor:=Cells(i, 1), _
Address:=.FoundFiles(i), _
TextToDisplay:=Nombre(.FoundFiles(i)), _
ScreenTip:=.FoundFiles(i)
Next
Else
MsgBox "No hay ficheros PDF en " & strCarpeta, vbInformation
End If
End With
End Sub

Function Nombre(ByVal strRuta As String) As String
Nombre = Mid$(strRuta, InStrRev(strRuta, "\") + 1)
Nombre = Left$(Nombre, InStrRev(Nombre, ".") - 1)
End Function
'*******************

Y llamarías así:
Call ListarPDFs("d:\PDF\A")

Si quisieras que también se recorriesen las subcarpetas, en el 'With' añades la línea:
.SearchSubFolders = True


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas