Use a CommandButton Control for a Google Maps Hyperlink with Cell Data

RJSIGKITS

Board Regular
Joined
Apr 15, 2013
Messages
109
Hi Board of Genius'

Can anybody help me to achieve this, at all, please?

I currently have a Hyperlink Cell (C10) which, when clicked, takes the user externally to Google maps at the address as inputted into a number of Cells:

User Cells:
B6 = "House Name / Number"
B7 = "Street"
B8 = "Town"
B9 = "County"
B10 = "Post Code"

The Hyperlink formula I have in C10 is:
Code:
=HYPERLINK("http://maps.google.com/maps?q="&SUBSTITUTE(B6&"+"&B7&"+"&B8&"+"&B9&"+"&B10," ","+"),"VIEW ON MAP")
This works fine, but I really want this to be assigned to a CommandButton Control, but just cannot figure out how to get it to work - any help would be much appreciated.

:banghead:

Thanks In advance.

Kind Regards
 

Comfy

Well-known Member
Joined
Dec 21, 2009
Messages
3,376
Add a command button to your workbook and paste this into the code section for the button.

Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:="http://maps.google.com/maps?q=" & Replace(B6 & "+" & B7 & "+" & B8 & "+" & B9 & "+" & B10, " ", "+")
End Sub
 

RJSIGKITS

Board Regular
Joined
Apr 15, 2013
Messages
109
Add a command button to your workbook and paste this into the code section for the button.

Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:="http://maps.google.com/maps?q=" & Replace(B6 & "+" & B7 & "+" & B8 & "+" & B9 & "+" & B10, " ", "+")
End Sub

Hey, Thanks for the Reply.
I've been playing around with this and I think I had got to the same thing (Except with .co.uk in place of your .com)
This is searching for https://maps.google.co.uk/maps?q=++++ and not the address....
 

Forum statistics

Threads
1,081,771
Messages
5,361,187
Members
400,617
Latest member
barron1

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top