Automatic hyperlinks between cell with pdf file name and the pdf file

[SimoD]

Hi I have a drawing log sheet with various pdf files named in column M and i want to automatically hyperlink the pdf files to the text in the cells. Can this be done?

I've created the button and attempted a few things to get this to work but I'm not getting anywhere with it

I want to do sim with nc files

Thanks
Simon

 

[John_w]

Assign this macro to your button.

Public Sub Create_Hyperlinks()
    Dim cell As Range
    With ActiveSheet
        For Each cell In .Range("M2", .Cells(.Rows.Count, "M").End(xlUp))
            cell.Parent.Hyperlinks.Add Anchor:=cell, Address:="C:\Drg_Log_Files\DRG_FILES\" & cell.Value
        Next
    End With
End Sub

 

[aarceng]

Use the HYPERLINK function? No macro needed.

 

[SimoD]

Assign this macro to your button.

Public Sub Create_Hyperlinks()
    Dim cell As Range
    With ActiveSheet
        For Each cell In .Range("M2", .Cells(.Rows.Count, "M").End(xlUp))
            cell.Parent.Hyperlinks.Add Anchor:=cell, Address:="C:\Drg_Log_Files\DRG_FILES\" & cell.Value
        Next
    End With
End Sub

Thanks for this it worked perfectly, really appreciate your help