Hipervínculo de celda a archivo pdf con el mismo nombre

[leserasfea]

Buenos Días a todos.

Acudo a su sabiduria por que estoy armando un registro en Excel y no se como desarrollar el codigo VBA, he buscado por muchas partes pero no logro ajustar la macro a lo que necesito.

Tengo un boton, el cual quiero que genere un hipervínculo entre la celda E9 de la hoja 3 (valor de la celda = 12) a un archivo PDF que se encuentra en la carpeta mis documentos con el mismo nombre - Ejemplo: 12.PDF.

Menciono que los archivos PDF se generan segun el valor de la celda

- doy Click y el valor de E9 es 13 y se crea un archivo 13.pdf

- Click y el valor de E9 es 14, se crea archivo PDF 14.pdf

hasta ahí todo bien pero no se como hacer el hipervinculo entre ambos.

De antemano muchas gracias. :tickled_pink:

Sub correlativo()

Sheets("hoja3").Select

Range("e9:f9").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Dim Acumulado As Integer

Dim Asignado As Integer

Acumulado = Range("e10").Value

Asignado = Range("h6").Value

Range("e9").Value = Acumulado + Asignado

Range("f9").Select

ActiveCell.FormulaR1C1 = "=TODAY()"

Range("f9").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Sheets("v").Select

Codigo = Sheets("hoja3").Range("e9")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

("C:\Users\XXXXX\Documents\") & Codigo & " .pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

[leserasfea]

Hola a todos.

mi intencion en poder vincular con una macro la celda E9 (la celda contiene el Nº 12) con el archivo PDF llamado 12.PDF que esta en mis documentos. Este codigo me gustaria incluirlo dentro de otro codigo que tengo ya creado, el cual inserta una celda y desplaza hacia abajo el valor 12 donde ahora E9 tiene un 13 y en mis documentos hay un archivo llamado 13.PDF

Muchas gracias!

Buenos Días a todos.

Acudo a su sabiduria por que estoy armando un registro en Excel y no se como desarrollar el codigo VBA, he buscado por muchas partes pero no logro ajustar la macro a lo que necesito.

Tengo un boton, el cual quiero que genere un hipervínculo entre la celda E9 de la hoja 3 (valor de la celda = 12) a un archivo PDF que se encuentra en la carpeta mis documentos con el mismo nombre - Ejemplo: 12.PDF.

Menciono que los archivos PDF se generan segun el valor de la celda

- doy Click y el valor de E9 es 13 y se crea un archivo 13.pdf

- Click y el valor de E9 es 14, se crea archivo PDF 14.pdf

hasta ahí todo bien pero no se como hacer el hipervinculo entre ambos.

De antemano muchas gracias. :tickled_pink:

Sub correlativo()

Sheets("hoja3").Select

Range("e9:f9").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Dim Acumulado As Integer

Dim Asignado As Integer

Acumulado = Range("e10").Value

Asignado = Range("h6").Value

Range("e9").Value = Acumulado + Asignado

Range("f9").Select

ActiveCell.FormulaR1C1 = "=TODAY()"

Range("f9").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Sheets("v").Select

Codigo = Sheets("hoja3").Range("e9")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

("C:\Users\XXXXX\Documents\") & Codigo & " .pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub