Hipervínculo de celda a archivo pdf con el mismo nombre
publicado
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.
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