Mini Browser - VBA (need opinion)

[privxls]

Hi MrExcel,

I am currently working on a mini-experiment which is like an internet browser. I have a list of websites which are on a ListBox, every time a specific website is listed, the WebBrowser will navigate to the corresponding website which is selected from the ListBox.

I would like to ask about your opinion if there could be a better way to 'code' the following.

And here is how it would somehow look like:

Kind regards,
~Privxls

 

[Logit]

.
You could use a SELECT CASE

 

[privxls]

I will try to use SELECT CASE and I will get back at you. I'll figure out how it works first, thank you Logit.

 

[privxls]

.
You could use a SELECT CASE

Hi Logit, first off I would like to thank you. I was able to work with SELECT CASE and it's fantastic. It somehow made the 'code' less messy.

Here is a screenshot of it

I am eager to learn more about Excel and VBA, it is fun and it will come in really handy.
Hope all is well for you, thank you so much again

 

[Norie]

Another alternative to the original code would be to make the listbox multicolumn and put the URLs in a 2nd hidden column.

Then you could use something like this.

Private Sub CommandButton1_Click()
Dim idx As Long

    idx = ListBox1.ListIndex

    If idx = -1 Then
        MsgBox "No site selected."
        Exit Sub
    Else
        strURL = ListBox1.List(idx, 1)
        WebBrowser1.Navigate2 strURL
    End If

End Sub

 

[Logit]

.
privxls

You are welcome. I too enjoy messing with Excel / VBA. It's a hobby for me. I especially enjoy helping others with my limited knowledge - as I best am able.
Helping others oftentimes increases my own knowledge level as I learn something new each time.

All the best.

 

[privxls]

Another alternative to the original code would be to make the listbox multicolumn and put the URLs in a 2nd hidden column.

Then you could use something like this.

Private Sub CommandButton1_Click()
Dim idx As Long

    idx = ListBox1.ListIndex

    If idx = -1 Then
        MsgBox "No site selected."
        Exit Sub
    Else
        strURL = ListBox1.List(idx, 1)
        WebBrowser1.Navigate2 strURL
    End If

End Sub

Thank you so much, I will be trying this out on another project. I do appreciate the lively community