Based on listbox values, go to a URL in webbrowser containing those listbox values

[krisspy]

I have a user form with a listbox of several different values (say a, b, and c) on one page.
This user form has multiple pages, and one of the multipages is called "Google Search".
When the user clicks the tab "Google Search", I want the webbrowser on that page to direct to "https://www.google.com/search?q=a,b,c" if "a, b, c" are the values in the listbox currently.

Think anybody could help me out? I'm assuming I need to declare all the values in the listbox as variables, and somehow attach those variables to the URL.


If you need more information on the code, please let me know!

Thank you

[AlphaFrog]

You would make a string of the selected listbox items and append it to the google search url.

Maybe something like this...

Please Login or Register  to view this content.

[krisspy]

Nice! That takes care of the hard part -
Now is there anyway instead of a command button, when you click the tab for a different page the webbrowser goes to that strURL?
My code for just the general google.com page is:


Private Sub mpgContainer_Change()
If mpgContainer.Value = 5 Then
wbrWeb.Visible = True
Else
wbrWeb.Visible = False
End If
End Sub

Private Sub UserForm_Initialize()
wbrWeb.Silent = True
wbrWeb.Visible = False
wbrWeb.Navigate "www.google.com"
End Sub

[AlphaFrog]

Nice! That takes care of the hard part -
Now is there anyway instead of a command button, when you click the tab for a different page the webbrowser goes to that strURL?
My code for just the general google.com page is:


Private Sub mpgContainer_Change()
If mpgContainer.Value = 5 Then
wbrWeb.Visible = True
Else
wbrWeb.Visible = False
End If
End Sub

Private Sub UserForm_Initialize()
wbrWeb.Silent = True
wbrWeb.Visible = False
wbrWeb.Navigate "www.google.com"
End Sub

You're welcome.

In your post above, surround your pasted code with CODE tags. They will bust you for not doing that. See my signature block below.

Put the code I gave right after wbrWeb.Visible = True.
Replace the MsgBox with the Navigate command and strURL

[krisspy]

Is there a way to make it so the string contains ALL of the items in the listbox, not just the selected ones?
I really do appreciate this help!

(And thumbs up to the heads up about the code tags)

[AlphaFrog]

Is there a way to make it so the string contains ALL of the items in the listbox, not just the selected ones?
I really do appreciate this help!

(And thumbs up to the heads up about the code tags)

Just one line to construct the URL string.

Please Login or Register  to view this content.

[krisspy]

Well I found some way to butcher your code because what I am trying is not working. The page that comes up when I click the tab says the page does not exist. Here is what I am working with:

Please Login or Register  to view this content.

[AlphaFrog]

Change the name of the listbox to suit.

Please Login or Register  to view this content.

[krisspy]

Thank you for your kind help, AlphaFrog. I got it running