A Microsoft Excel forum. ExcelBanter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » ExcelBanter forum » Excel Newsgroups » Excel Programming
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Open Google Map and enter a street address retrieved from a cell



 
 
Thread Tools Display Modes
  #1  
Old August 17th 12, 07:41 PM posted to microsoft.public.excel.programming
Michael Lanier[_2_]
external usenet poster
 
Posts: 1
Default Open Google Map and enter a street address retrieved from a cell

When I link to Google Map, I want the address posted in Sheet 5, cell
C17 to be posted in Google's address section ready to find. Is this
possible? Thanks.
Ads
  #2  
Old August 21st 12, 05:17 AM posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default Open Google Map and enter a street address retrieved from a cell

On Friday, August 17, 2012 11:41:30 AM UTC-7, Michael Lanier wrote:
> When I link to Google Map, I want the address posted in Sheet 5, cell
>
> C17 to be posted in Google's address section ready to find. Is this
>
> possible? Thanks.


Try this...

Sub GMapAddress()
Dim AddressInfo As String
Dim FullURL As String

AddressInfo = Sheets("Sheet5").Range("C17").Value
FullURL = "https://maps.google.com/maps?q=" & AddressInfo

ActiveWorkbook.FollowHyperlink Address:=FullURL
NewWindow = True
End Sub
  #3  
Old August 21st 12, 05:45 AM posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default Open Google Map and enter a street address retrieved from a cell

On Monday, August 20, 2012 9:17:54 PM UTC-7, wrote:
> On Friday, August 17, 2012 11:41:30 AM UTC-7, Michael Lanier wrote:
>
> > When I link to Google Map, I want the address posted in Sheet 5, cell

>
> >

>
> > C17 to be posted in Google's address section ready to find. Is this

>
> >

>
> > possible? Thanks.

>
>
>
> Try this...
>
>
>
> Sub GMapAddress()
>
> Dim AddressInfo As String
>
> Dim FullURL As String
>
>
>
> AddressInfo = Sheets("Sheet5").Range("C17").Value
>
> FullURL = "https://maps.google.com/maps?q=" & AddressInfo
>
>
>
> ActiveWorkbook.FollowHyperlink Address:=FullURL
>
> NewWindow = True
>
> End Sub



Add this below the FollowHyperlink code if you want to clear the contents of the cell after.

Sheets("Sheet5").Range("C17").Select
Selection.ClearContents

or this to set the value of the cell to something else:
Sheets("Sheet5").Range("C17").Value = "=A1" 'this would duplicate data in A1 to C17
  #4  
Old August 21st 12, 10:11 PM posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 33
Default Open Google Map and enter a street address retrieved from a cell

Thanks. I'll try it out ASAP. It looks hopeful.

Michael
 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
separate an address street/city,state,zip within a cell? Puzzled Excel Worksheet Functions 6 July 27th 07 12:28 PM
Need to combine people at same street address [email protected] Excel Programming 0 December 5th 06 09:20 PM
Remove Civic numbers in Street Address, move to previous blank cell Canuck Excel Worksheet Functions 1 October 12th 06 03:31 PM
how do I convert cell 'Street,#' to '# Street' these are addresse Closing hyperlinked wookbooks upon exit Excel Worksheet Functions 3 April 30th 06 11:23 AM
outlook 3 line street address joe smith Excel Discussion (Misc queries) 2 November 22nd 05 02:32 PM


All times are GMT +1. The time now is 07:56 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2013, Jelsoft Enterprises Ltd.
Copyright ©2004-2013 ExcelBanter.
The comments are property of their posters.