Como agrego una condición para que Listbox abra un hipervínculo.

Un experto de este foro me dio el código para abrir un hipervínculo al activar un registro en un listbox, que tenia en una columna F, pero me pasa que si no hay un hipervínculo, o sea, si no almacene previamente un hipervínculo me arroja un error.

Lo que necesito es que por medio del código me verifique si efectivamente hay un hipervínculo que lo abra, o si no que me arroje un mensaje de que no hay archivos cargados.

Lo agradecería mucho.

Adjunto el código

Sheets("Hoja2"). Activate
fila = ListBox1.List(ListBox1.ListIndex, 3)
Cells(fila, "F").Select
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

1 Respuesta

Respuesta
1

Esta puede ser una opción

 Sheets("Hoja2"). Activate
    fila = ListBox1.List(ListBox1.ListIndex, 3)
    Cells(fila, "F").Select
    On Error Resume Next
        sLink = ActiveCell.Hyperlinks(1).Address
        num = Err.Number
        des = Err.Description
    On Error GoTo 0
    If num = 0 Then
        ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Else
        MsgBox "No hay archivo cargado"
    End If

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar hipervínculo macro

Como hago para abrir el hipervínculo de una celda especifica por medio de una macro. Ejemplo tengo la Hoja1 donde tengo todos los hipervínculos a 44 hojas más, lo que quiero es saber cual es el código para abrir uno de esos hipervínculos. Si tengo en...
1 respuesta

Como abro un hipervínculo desde un Listbox en Excel

Tengo la siguiente situación, para ver si es que me pueden ayudar. Tengo una Listbox que me muestra los datos de una tabla, pero tengo algunos datos repetidos como rut y nombre. Actualmente tengo un código que me detecta la celda por medio del...
1 respuesta

Macro para abrir distintos hipervínculos

Me gustaría crear un macro que cuando se seleccione cierta celda abra un hipervínculo hacia un archivo que tengo en word, pero necesito que también al seleccionar otra celda se abra un hipervínculo distinto, y cada una de estas dos funciones se...
1 respuesta

Mantener títulos en un Listbox cambiando sus valores

Quería comentar un problema que me aparece en un Listbox para ver si me podían echar una mano. El Listbox estará acompañado de 1 TextBox y de 2 botones más en un formulario. En el formulario lo que pretendo es que apretando a uno de los botones se...
1 respuesta

Coincidir celdas desde un listbox

Otra vez aquí tratando de aclarar mis dudas este mundo de la programación y donde soy un principiante bueno siguiendo con mi proyecto he realizado un código desde el evento clic del listbox y me activa la celda efectivamente pero si tengo una celda...
1 respuesta

Ingresar encabezados en un listbox en excel

Expertos: Antes que nada agradezco la aportación de todos ustedes ya que siempre nos sacan del atolladero ¿Mi pregunta es como puedo ingresar los encabezados en un listbox? En un commandbutton doy la instrucción al listbox de la siguiente manera...
1 respuesta

Pasar filas de datos de un listbox a fijas de una de hoja de excel

Pasar filas de datos de un listbox a fijas de una de hoja de excel
1 respuesta

Problema de selección en ListBox

Tengo un list box en el cual traigo datos desde una hoja de excel. Para ello hay un TxtBox que me permite ingresar el dato de búsqueda y luego en el ListBox muestra todas las filas que tienen este campo. ¿Ocurre qué al seleccionar el dato y luego...
1 respuesta

Qué tal chicos! , Cómo sumar ¿Valores de un listbox en un textbox automáticamente?

Tengo un listbox con 18 columnas, el cual lleno con datos según el código elegido en un combobox, mi intención es que al llenarse el listbox, también se haga automáticamente la suma total de los valores de la columna 18 en un textbox.
1 respuesta

¿Cómo activar un fila de Excel desde un ListBox?

Tengo una "BaseDeDatos" con 23 columnas ("A:W"), de la misma que jalo datos a un ListBox1 de las primeras 9 columnas ("A:I"). Ingresando criterio de búsqueda en un TextBox1 y mediante el evento Click de un "CommandButton1" filtro los datos que deseo...
1 respuesta