Hyperlink a cell to a specific document

[MO24]

Hello,

I would like to be able to hyperlink a cell to a specific document but it isn't working for me, here's what I had in mind

I have already created an existing user form. It comes up with a range of textboxes that are linked to specific cells but what I would like to achieve is when the insert button is pushed it hyperlinks one of the cells (Cells(15,11))(Textbox name (AssessmentDescription) to a chosen document. It would be great if the user form could have a button that would open file explorer for you to pick a file (for this I was using Application.GetOpenFilename) and then copy the path of the chosen document so that it can be hyperlinked to it. I had created another textbox for it to insert the file path into to try to make it easier so that it could say:

ActiveSheet.Hyperlinks.Add Anchor:=cells(15,11), Address:= LinkBox.Value
TextToDisplay:=AssessmentDescription.Value

Is this possible?

 

[Dan_W]

I would like to be able to hyperlink a cell to a specific document but it isn't working for me, here's what I had in mind

Sure it's possible. Why doesn't it work for you?

 

[MO24]

Hello Dan,

All good. I have figured it out and forgot to update this thread. Thanks for your interest though.

For anyone else following this here is what I came up with

Dim FileToOpen As String
FileToOpen = Application.GetOpenFilename
Link.Value = (FileToOpen)

ActiveWorkbook.Worksheets("Lists").Hyperlinks.Add Anchor:=Cells(15, 5), Address:=Link.Value
TextToDisplay = Description.Value

Thanks again. Appreciate it.

 

[Dan_W]

That's great that you were able to solve it yourself!
Did you work out the source of the problem though?

Also, with the code above, you will likely need to make a slight change in order to get it to display the description text. The following code deals with that and also allows for the possibility that you might press cancel instead of selecting a file, and so exits the sub without displaying an error message:

Sub AddHyperlink()
    
    Dim FileToOpen      As Variant
    
    FileToOpen = Application.GetOpenFileName
    If FileToOpen = False Then Exit Sub
    link.Value = CStr(FileToOpen)
    ActiveWorkbook.Worksheets("Lists").Hyperlinks.Add Anchor:=Cells(15, 5), Address:=link.Value, TextToDisplay:=Description.Value

End Sub

 

[MO24]

Okay Thankyou,

I think I was just simply trying to approach it from the wrong angle. I started looking a bit further on google and used a couple of different strategies until I got it right.