Google maps dentro de excel

[mapenascu]

Buenos días les agradeceri amucho si me pudieran ayudar con lo siguiente, tengo una base de datos con GPS de los clientes y el GPS de klas unidades que los han atendido, la idea es subir esto a google maps pero directamente en excel para que pueda ser visualizado facilmente, asi mismo la marca de lciente debe tener una forma y el de la unidad otra, he logrado hacer esto en Fusion Tables pero laidea es tener el excel en red y que cualquier usuario pueda ver sin necesidad de subir los datos en cada actualización.

[LeandroA]

hola, mañana si puedo armo un ejemplo.

[LeandroA]

hola te arme este ejemplo, estoy algo corto de tiempo, me hubiera gustado hacer algo mejor, quizás mañana corrija algún error o mejore algunas cosas, tampoco pude comentar mucho su funcionamiento espero que te des cuenta como funciona.

Google maps dentro de excel.zip

[Antoni]

Si lo prefieres con hipervínculos:

Sub Hipervínculos()
Dim Columna As String, X As String, Y As String, Fila As Long
'--
Columna = "A" 'Columna hipervínculo
X = "B"       'Columna coordenada X
Y = "C"       'Columna coordenada Y
Fila = 2      'Fila inicio de datos
'--
For Each celda In Range(Columna & Fila & ":" & Columna & Range(Columna & Rows.Count).End(xlUp).Row)
   If Not Trim(celda) = "" Then
      celda.Hyperlinks.Add _
           Anchor:=celda, _
           Address:="https://www.google.es/maps?q=" & Range(X & celda.Row) & "," & Range(Y & celda.Row)
   End If
Next
End Sub

 

[mapenascu]

Me sirvió de mucho el archivo, pero la idea es mapear todos los clientes y paradas de la unidad en un solo mapa

 

[LeandroA]

Hola bien, eso igual te sirve para configurar cada cliente de forma individual, si te fijas podes arrastrar la marca y así ubicar de forma manual y visual las coordenadas para cada cliente, ahora con lo que dices de una visión general de todos los clientes te he preparado otro ejemplo (algo des prolijo) en base al anterior donde se muestra una marca por cliente y su nombre. la cosa es que esto esta echo a medida para el ejemplo, es decir quizas vos para ajustarlo a tus necesidades tengas que hacer varias modificaciones y tengas que poner en practica lo que es las APIs de gmaps, todos los script están en mapa.html 

Google maps dentro de excel.zip

[josera]

Buenas, LeandroA me da error la macro que hiciste en:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set WebBrowser1.Document.parentWindow.ObjParent = Me

 

Sabes cual puede ser el error?

[LeandroA]

En 29/7/2017 at 12:41 , josera dijo:

Buenas, LeandroA me da error la macro que hiciste en:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set WebBrowser1.Document.parentWindow.ObjParent = Me

 

Sabes cual puede ser el error?

hola Josera por las dudas descomprimiste todo del archivo Libro1 + mapa.html?