............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macros para hipervinculos en excel

Ver el tema anterior Ver el tema siguiente Ir abajo

Macros para hipervinculos en excel

Mensaje por Rosa peñafiel el Mar Sep 27, 2016 2:53 pm

Hola a todos Lo que necesito hacer es vincular mi base de datos en excel y de acuerdo a su nombre me abra el archivo de pdf que esta dentro de una carpeta.

Ejemplo: Tengo el nombre en excel "250" y que localice el archivo pdf con este nombre que esta dentro de la carpeta y lo abra, además algunas celdas podrían estar vacías, en ese caso no habría ningun vinculo.

usé esta macro que vi por ahi pero no me funciono del todo bien ya que me vinculó con pdf que no correspondían al nombre en la celda:

Sub indicepdf()
Dim NombreArchivo As String
Dim NombreCarpeta As String
Dim NombreCompleto As String
Dim f As Long

NombreCarpeta = "C:\Users\rpenafiel\Desktop\convocatorias" ' aqui el nombre del directorio donde tienes los pdf
f = 2

ChDir NombreCarpeta
NombreArchivo = Dir("*.pdf") ' cambiar para otras extensiones

Do While NombreArchivo <> ""
NombreCompleto = NombreCarpeta & "/" & NombreArchivo
Cells(f, 10) = NombreCompleto
ActiveSheet.Hyperlinks.Add Anchor:=Cells(f, 4), Address:=NombreCompleto
f = f + 1
NombreArchivo = Dir
Loop

End Sub


**ADJUNTO ARCHIVO PARA QUE LO VEAN MEJOR, LO QUE BUSCO ES VINCULAR LA COLUMNA QUE DICE "NUMERO DE CONVENIO" CON UNOS PDF QUE TENGO EN UNA CARPETA, gracias de antemano.

Rosa peñafiel

Femenino Cantidad de envíos : 2
Edad : 25
Ciudad - Pais : lima-peru
Version de Excel : 2013
Fecha de inscripción : 27/09/2016

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.