User Form Command Button to embed hyperlink to spreadsheet database

[Gneissrocks]

Hi,

I have a simple spreadsheet database where the second column of every row contains a hyperlink to a pdf. Each Hyperlink is unique for each row.

I want to add a command button to a user form that when clicked, allows the user to browse to the correct pdf and embed it as a hyperlink into the spreadsheet database in the correct cell. (cell 2 or every row in my case)

I know how to create a label that will follow the hyperlink once it is in the cell, but I am totally stuck on how to embed the hyperlink in the first place!

Hope someone can help.

 

[Gneissrocks]

I now have a working solution, but it is quite ugly.


<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">PrivateSub AddHyper_button_Click()
Dim URL AsString
URL = Application.GetOpenFilename
Hyperlink_textbox = URL
EndSub

PrivateSub Hyperlink_Label_Click()
Dim URL AsString
Dim cellvalue AsVariant

cellvalue = Hyperlink_textbox.Value
URL = cellvalue

OnErrorGoTo urlnotopen
ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True
ExitSub
urlnotopen:
MsgBox "Cannot open "& URL
EndSub

</code>This finds the file address on button click, posts it to a text box on the form (which is hidden) which can be then written to the correct cell. There is also a label on the form which will follow the hyperlink to the correct file.