Hyperlinks

[Tills13]

I've written some code that will attach multiple files to an entry in a database and, if there's only one file attached, clicking a hyperlink will take you to that specific file. When there's more than one file, however, I would like to have a userform open with buttons to go to the files...

I've written the following code; however, the code lets the first file open (because that's what's linked) and then opens the window I want.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If InStr(Sheets("MTRs").Cells(ActiveCell.Row, 1).Value, "(") Then
    Load Multifile
    Multifile.Show
End If
End Sub

 

[Jerry Sullivan]

You could have the hyperlink use a cell reference to the same cell that holds the hyperlink. The Display Text can be the same as you are already using.

If you do that, your UserForm should come up without going to any URL addresses first.

 

[Tills13]

Alright, i've tried pretty much everything, but how do you link to a cell in VBA?

ActiveSheet.Hyperlinks.Add Anchor:=Cells(Count, 1), Address:=Cells(Count, 1).Address

 

[Jerry Sullivan]

Try one of these two methods...

ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), Address:="", SubAddress:= _
        "Sheet1!B2", ScreenTip:="Tip Text", TextToDisplay:="Display Text"

ActiveSheet.Hyperlinks.Add Anchor:=Range("B2"), Address:="", SubAddress:= _
        "#B2", ScreenTip:="Tip Text", TextToDisplay:="Display Text"