Hyperlink cell values to files

[panterall]

Hi,

Each week I receive a list in excel with over a 1000 of numeric values, which need to be [hyper]linked to different pdf files located inside the same folder [ "C:\folder\"].

Last time, I had to do them by hand and that was not fun at all .
Could somebody please help me with a hint of VBA code to solve this issue?

My thinking goes like this:
1) I select the current cell
2) Compare the value of the cell with the values of the files inside that folder (the files are named with the same values listed in excel).
3) When a match is found, create a hyperlink displaying the value of the cell
4) Repeat the process again with a different value.

So, if you could help me get through this I will really appreciate it
Thank you!!

 

[tlowry]

This is what I think you want

Sub SetUpHyper()
    Const sPath = "C:\Folder\"
    Const sSheet = "Sheet1"
    With Sheets(sSheet)
        For i = 0 To .Range("A" & Rows.Count).End(xlUp).Row - 1
            If Trim(.Range("A1").Offset(i, 0)) <> "" Then
                fn = Dir(sPath & .Range("A1").Offset(i, 0))
                If fn <> "" Then .Range("A1").Offset(i, 0).Hyperlinks.Add _
                            Anchor:=.Range("A1").Offset(i, 0), _
                            Address:=sPath & fn, TextToDisplay:=fn
            End If
        Next i
    End With
End Sub

 

[panterall]

Hi tlowry,

Thank you very much!!! I just tweaked it a little bit, but it worked just fine. You just saved me hours of boring non-sense work.