SELECCIONAR Y ACTIVAR HIPERVÍNCULO EN LISTBOX

Hace unos días recibía una consulta de cómo insertar y ejecutar hipervínculos desde un formulario, en concreto subir la url de diferentes web y ejecutar el vínculo para que nos direccione a la web que hemos añadido.

Pues bien, lo fundamental es tener claro en qué tipo de control quieres que aparezcan las url´s, para este caso en particular, he sugerido un listbox en propio formulario que cargue las direcciones web desde una página de Excel en la que las vamos añadiendo a una columna.

Partiendo de este ejemplo, vamos a denominar la página como “DATOS” y en la primera columnas, que llamaremos “DIRECCIONES” vamos a ir pegando las páginas que consideremos de nuestro interés.

Ahora, tenemos que añadir un userform y seguidamente un listbox, y para que el listbox cargue los datos, usaremos el siguiente código:

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Sheets("DATOS")
fin = 2 + Application.CountA(.Range("A:A"))
ListBox1.List = .Range("A2:A" & fin).Value
End With
End Sub

La particularidad de este código es que los datos se cargarán en el listbox cuando pasemos el puntero del ratón justo encima del formulario. Los datos se cargarán siempre a partir de la fila 2 de la primera columna.

Ahora lo siguiente es incluir un código que ejecute la url una vez la hayamos seleccionado en el listbox, para ello, vamos a utilizar esta macro:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
enlace = ListBox1.List(ListBox1.ListIndex)
ActiveWorkbook.FollowHyperlink Address:=enlace, NewWindow:=True
End Sub

Como podéis observar, para capturar el valor del Item seleccionado, utilizamos:

enlace = ListBox1.List(ListBox1.ListIndex)

Una vez que tenemos la url almacenada en “enlace” ya podemos ejecutarla en la siguiente línea:

ActiveWorkbook.FollowHyperlink Address:=enlace, NewWindow:=True

Es necesario que hagáis doble click encima del item seleccionado para ejecutar el hipervínculo.

El resultado es este:

SELECCIONAR Y ACTIVAR HIPERVINCULO EN LISTBOX

* En el archivo que os dejo de descarga he incluido una serie de control de errores para que no salten errores a la hora de descargar el archivo desde el correo, o si modificáis el nombre de la hoja o si pincháis en un ítem vacío del listbox.

Con este sencillo post ya podéis subir vuestros enlaces a un userform, sin problemas.

Descarga el archivo de ejemplo pulsando en: SELECCIONAR Y ACTIVAR HIPERVÍNCULO EN UN LISTBOX

 

Anuncios

¿Te ha gustado?. Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s