Open a hyperlink in List View box VBA

[laurawr]

Hi,


I have a multiple column list view within a userform, which acts as results box for a search facility that searches the database for relevant records to the search.

What I want is..
When a certain record is clicked in the list view, for it to look at column 2 in the listview and open the hyperlink.

I have a peice of code but it will not work,

Private Sub ListView1_Click()
Dim c As Range
Set c = Columns(2).find(ListView1.SelectedItem, lookat:=xlWhole).Offset(, 3)
ActiveWorkbook.FollowHyperlink c.Hyperlinks(1).Address, NewWindow:=True
 
End Sub

Currently The listview selected item when i debug is the first columns value instead of the second columns value.

Your help is much appreciated
Thanks

L.

 

[laurawr]

BUMP!!

Can anyone help me?

 

[laurawr]

i am really stuck here!

 

[Andrew Poulsom]

Maybe this will help you:

http://www.bigresource.com/Tracker/Track-vb-EQqRbSevOe/

 

[laurawr]

Hi!
Thanks for replying

But it wasnt quite what i was looking for i noew have the code

Private Sub ListView1_Click()
Dim c As Range
Set c = Columns(2).find(ListView1.SelectedItem.SubItems(1))
ActiveWorkbook.FollowHyperlink c.Hyperlink.Address
End Sub

It is selecting the right column and data but i cannot get it to open the hyperlink.
it says object variable not set :/
Any ideas?

 

[Andrew Poulsom]

What happened to the Offset(, 3)?

 

[laurawr]

it didnt seem to be doing anything.

 

[Andrew Poulsom]

It was offseting the cell containing the item selected in the ListView by 3 columns. Presumably that's the cell that contains the hyperlink (column 5 on your worksheet).