Hyperlink link hipertexto en label y textbox




Domina Excel Hoy
Hoy muestro como asignar un hyperlink link o hipertexto en un label y textbox de un userform de VBA, anteriormente en otros post se trabajo con hyperlink como son: hyperlink o link a google map, como enviar desde Excel mail con un hyperlink, copiar un hyperlink, índice con hyperlink a hojas de un mismo libro, índice o hyperlink a hojas de otro libro, índice con hyperlink a hojas del mimo libro y en cada hoja al menú principal.

Si estás leyendo este post es, porque estás desarrollando un proyecto que incluye Macros en Excel; existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.






El ejemplo de macro que se presenta permite crear un hyperlink, link o hipertexto en un label y en un textbox activándose en este último con doble click; presionando el botón aparece un formulario con un link en un label y en un textbox, haciendo click en el label dirige a la página o dirección establecida en el hipervinculo; en el textbox funciona haciendo doble click en el textbox.

Es útil por ejemplo en un formulario que contenga los datos de un cliente, proveedor, compañía aseguradora, que haciendo clik en el label o textbox que contenga el dato direccionando a la página web.

Otra utilidad puede ser en un formulario que contenga el dato del domicilio de los clientes, proveedores, compañías aseguradoras y haciendo click en el link nos redirija a google maps.

Se me ocurre que también podría servir cuando se requiera tener un link a archivos escaneados de clientes, proveedores, compañías aseguradoras; tiene un sin numero de utilidad, dependiendo de cada uno adaptarlo a las necesidades particulares.

Descarga el ejemplo del link del final. Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Código que se inserta en un módulo




Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Label1_Click()
ActiveWorkbook.FollowHyperlink "http://www.programarexcel.com"
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink "" & TextBox1 & ""
End Sub

Private Sub UserForm_Activate()
Me.TextBox1 = "http://www.programarexcel.com"
End Sub



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