Hyperlink o hipervinculo a Google Maps - PROGRAMAR EN VBA MACROS DE EXCEL

En en el post anterior se mostró como crear un hiperlink o hipervínculo y que al hacer click ejecute el programa predeterminado para mandar un correo electrónico o mail, en esta oportunidad voy a mostrar como realizar un hyperlink o hipervinculo a Google Maps; el tema de como insertar un hyperlink en Excel ha sido tratado en varias oportunidades en esta web, no obstante ello y a pesar de ser similar, agregó este ejemplo que permite insertar un hipervínculo o hyperlink a google maps.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Desde el link del final podrás bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código es libre y no tiene ningún tipo de restricción.

MASTERCARD PAYONEER

Al descargar el ejemplo de macro o código de VBA, verás que existe un botón insertado que permite llamar un formulario, este formulario contiene tres textbox uno para nombre, otro para dirección y otro para mail; para convertirá en un hyperlink o hipervínculo de correo electrónico, es decir abrirá el programa predeterminado para el envío de mails, que por lo general es Outlook.

En el segundo textbox se crea un hyperlink o hipervinculo a Google Maps, la ventaja es que al presionar directamente busca en Google Maps el valor del textbox 2.

El formulario tiene dos botones uno para cancelar y cerrar el formulario y el otro que permite guardar en la celda el dato introducido en el textbox, la macro sola determina la última fila con datos o primer fila libre para pegar el dato del textbox; el ejemplo lo puedes descargar sin restricción desde el link del final de este post, el código que se incorpora a continuación es el que encontrarás en el ejemplo, si lo observas tiene una codificación que se deber insertar en un módulo, esto es a los fines de llamar el formulario, el resto de la codificación que se inserta en un userform es el que permite crear el hyperlink o hipervínculo.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

Código que se inserta en un módulo

Sub mostrar()
UserForm1.Show

End Sub

Código que se inserta en un userform
Private Sub CommandButton1_Click()
Dim uf As Integer
Dim m, dt, d1, dt1 As String
uf = Sheets(«hoja1»).Range(«A» & Rows.Count).End(xlUp).Row
Sheets(«hoja1»).Cells(uf + 1, 1) = TextBox1
Sheets(«hoja1»).Cells(uf + 1, 2) = TextBox2
d1 = «https://maps.google.es/maps?q=» & TextBox2
dt1 = TextBox2
Sheets(«hoja1»).Hyperlinks.Add Anchor:=Sheets(«hoja1»).Cells(uf + 1, 2), Address:=d1, TextToDisplay:=dt1

m = «mailto:» & TextBox3
dt = TextBox3
Sheets(«hoja1»).Hyperlinks.Add Anchor:=Sheets(«hoja1»).Cells(uf + 1, 3), Address:=m, TextToDisplay:=dt
TextBox1 = Clear
TextBox2 = Clear
TextBox3 = Clear
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Otros post de utilidad:

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends