Related:
- Hyperlink Macro
- Macro to copy data from one sheet to another based on criteria ✓ - Forum - Excel
- Compare two excel sheets and highlight differences macro ✓ - Forum - Excel
- Run macro automatically when cell value changes ✓ - Forum - Excel
- Macro to insert row in excel based on criteria ✓ - Forum - Excel
- Powerpoint to pdf with hyperlinks - How-To - Powerpoint
1 reply
rizvisa1
- Posts
- 4476
- Registration date
- Thursday January 28, 2010
- Status
- Contributor
- Last seen
- August 2, 2020
Presuming this is related to your previous question. This function is based on same. The file name is assumed to be like 700002.pdf
However you can also add the hyper link when data is copied ( as in your previous question). If you want to go with that, the highlighted lines are all you need to add to the previous code
However you can also add the hyper link when data is copied ( as in your previous question). If you want to go with that, the highlighted lines are all you need to add to the previous code
Sub putHyperLink()
Dim PI_Sheet As String
Dim DC_Sheet As String
Dim invoiceLoc As Long
Dim invoice As Variant
Dim sFileLoc As String
PI_Sheet = "Product Invoice"
DC_Sheet = "Data Collection"
sFileLoc = "C:\Users\haadi\Documents\"
Sheets(DC_Sheet).Select
invoice = Sheets(PI_Sheet).Range("M7")
invoiceLoc = 0
On Error Resume Next
invoiceLoc = Application.WorksheetFunction.Match(invoice, Range("A:A"), 0)
On Error GoTo 0
If (invoiceLoc > 0) Then
Sheets(DC_Sheet).Hyperlinks.Add _
Anchor:=Sheets(DC_Sheet).Range("A" & invoiceLoc & ":A" & (invoiceLoc + 10)), _
Address:="""" & sFileLoc & invoice & ".pdf""", _
TextToDisplay:="""" & invoice & """"
End If
End Sub
SLK