Web browser open through ListBox control on Userform

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Sep 4, 2011

• #2

Where are these 'user-friendly' hyperlinks in the file?

 

Upvote 0

S

sanits591

Active Member

Joined

May 30, 2010

Messages

253

• Sep 4, 2011

• #3

The user friendly link name is sheet 1 ("a7") = "Test", & sheet 2 ("a14") = "Test2".

Only 2 links have been given as an example for this.

 

Upvote 0

Jaafar Tribak

Well-known Member

Joined

Dec 5, 2002

Messages

9,806

Office Version

1. 2016

Platform

1. Windows

• Sep 4, 2011

• #4

Declare a module level dynamic array and when you populate the listbox with the friendly names populate the array with the respective hyperlink addresses while respecting the indexes.

Then on the listbox click event run something along these lines :

Code:

Private Sub ListBox1_Click()

    WebBrowser1.Navigate YouArray(ListBox1.ListIndex)

End Sub

 

Upvote 0

S

sanits591

Active Member

Joined

May 30, 2010

Messages

253

• Sep 4, 2011

• #5

Thanks for giving the directions, could you please elaborate a little further, as the hyperlinks have friendly names and are not to be populated in the listbox. There are 0.5 million of words in the sheet with these friendly names with hyperlinks.

Request to help me out on this.

 

Upvote 0

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Sep 4, 2011

• #6

Why not just copy the hyperlinks?

Code:

  ws.Cells(varRow, 1).Copy wsTemp.Range("A" & LR).Offset(1, 0)

 

Upvote 0

S

sanits591

Active Member

Joined

May 30, 2010

Messages

253

• Sep 4, 2011

• #7

Thanks Norie!, the suggestion to this is appreciated, but again that friendly name (hypelinked to some site) is to be taken to the web browser control for accessing the required website.
This is the one where this all is stuck up.

 

Upvote 0

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Sep 4, 2011

• #8

Why can't you do that?

The hyperlink is in tmpSearch so there's nothing stopping you accessing it.

I added a command button and this code:

Code:

Private Sub CommandButton4_Click()
Dim I As Long
Dim strURL As String

    For I = 0 To lstResults.ListCount - 1
        If lstResults.Selected(I) Then
            strURL = Worksheets("tmpSearch").Range("A" & I + 2).Hyperlinks(1).Address
            WebBrowser1.Navigate strURL
        End If
    Next I
End Sub

When I searched for Test the items returned in the listbox were Test and Test2.

I selected Test2 and hit the new command button.

The webbrowser navigated to microsoft.com.

 

Last edited: Sep 4, 2011

Upvote 0

S

sanits591

Active Member

Joined

May 30, 2010

Messages

253

• Sep 4, 2011

• #9

I want this friendly name (having hyperlink) in the tempSearch sheet to be accessed through the ListBox on the Userform, by which clicking on the listbox value the Webbrowser control on the userform to open the website.

The hyperlink, i.e. URL address not to be shown in the Listbox control, only the friendly name is to be displayed in the Listbox control on the Userform.

 

Last edited: Sep 4, 2011

Upvote 0

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Sep 4, 2011

• #10

Same code but for the double click event of the listbox.

Code:

Private Sub lstResults_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim strURL As String
    If lstResults.ListIndex <> -1 Then

        strURL = Worksheets("tmpSearch").Range("A" & lstResults.ListIndex + 2).Hyperlinks(1).Address
        WebBrowser1.Navigate strURL
    End If

End Sub

This works for the 2 hyperlinks in the workbook, but you need to change the listbox to single select and copy as I suggested in post #6.

 

Upvote 0