Jump to content
Sign in to follow this  
mapenascu

Google maps dentro de excel

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



  • Si estás experimentando errores al acceder al foro, te recomendamos que modifiques la contraseña desde aquí (haciendo clic en el enlace "¿Olvidaste tu contraseña?").

    Próximamente  habrá mejoras en la web y es necesario cambiar la contraseña para acceder a los nuevos contenidos.

    Disculpa las molestias.

  • Recently Browsing

    No registered users viewing this page.

  • Latest Best Answers

×
×
  • Create New...

Important Information

Privacy Policy