Abrir simultáneamente múltiples hipervículos en Excel

Problema

Queremos abrir simultáneamente múltiples hipervículos en Excel.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Creamos la siguiente función en un módulo.

Sub Abrir_Hipervinculos()
    On Error Resume Next
    Dim hl As Hyperlink
    For Each hl In Selection.Hyperlinks
        hl.Follow
    Next hl
End Sub

3. Seleccionamos el rango de celdas que contiene los enlaces y presionamos Alt+F8.

4. Tecleamos Alt+F8 y presionamos Ejecutar.

Los enlaces se abrirán en el navegador predeterminado. Si alguna celda está vacía, contiene texto no reconocido como hipervínculo, o un hipervínculo no válido, los enlaces no se abrirán y no generará error pues hemos especificado On Error Resume Next.

Entradas relacionadas

• Convertir texto de URL en enlaces activos
• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel
• Eliminar todos los hipervínculos de una hoja o libro con VBA
• Comprobar si una celda contiene un hipervínculo

Referencias

• VBA Express
• Microsoft Community

Comprobar si una celda contiene un hipervínculo

Problema

Necesitamos comprobar mediante una fórmula si unas celdas contienen un hipervínculo.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Creamos la siguiente función en un módulo.

Function ESHIPERVINCULO(r As Range) As Boolean
  ESHIPERVINCULO = r.Hyperlinks.Count
End Function

3. Usamos la función recién creada ESHIPERVINCULO en cualquier celda.

Es importante recalcar que la fórmula nos indica si hay un hipervínculo, no si éste es válido.

Entradas relacionadas

• Convertir texto de URL en enlaces activos
• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel
• Eliminar todos los hipervínculos de una hoja o libro con VBA

Referencias

• Checking if a cell contains a hyperlink
• Excel test if Cell contains Hyperlink

Eliminar todos los hipervínculos de una hoja o libro con VBA

Problema

Necesitamos eliminar todos los hipervínculos de una hoja o de un libro de Excel.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Copiamos la subrutina correspondiente, para una hoja o para todo el libro, en un módulo.

'Hoja activa
Sub EliminarHipervínculosHoja()
 ActiveSheet.Hyperlinks.Delete
End Sub

'Todo el libro
Sub EliminarHipervínculosLibro()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Hyperlinks.Delete
    Next ws
End Sub

3. Ejecutamos la subrutina: F5. No se puede deshacer la acción.
4. Los hipervínculos se habrán eliminado,

Entradas relacionadas

• Convertir texto de URL en enlaces activos
• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel

Convertir texto de URL en enlaces activos

Problema

Queremos convertir texto de URL en enlaces activos, de manera que al hacer clic nos dirija a dichas páginas web.

Solución

Empleamos la fórmula HIPERVINCULO:

• Si queremos mostrar el nombre de la propia dirección.

=HIPERVINCULO(C2;C2)


• Si queremos mostrar un nombre descriptivo.

=HIPERVINCULO(C2;B2)

Entradas relacionadas

• Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel
• Abrir ficheros y aplicaciones con un cuadro de diálogo en Access

Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel

En Excel, dos alternativas para abrir otros ficheros o aplicaciones son el cuadro de diálogo y el hipervínculo.

Cuadro de diálogo

   1. Copiamos una de las siguientes subrutinas en un módulo.

'Para un único fichero de Excel
Sub AbrirCuadroDialogo1()
Application.Dialogs(xlDialogOpen).Show
End Sub

'Para abrir múltiples ficheros o aplicaciones
Sub AbrirCuadroDialogo2()
Dim cd As FileDialog
Set cd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
     With cd
        .AllowMultiSelect = True
        If .Show = -1 Then
        For Each vrtSelectedItem In .SelectedItems
            ActiveWorkbook.FollowHyperlink vrtSelectedItem
        Next
        End If
    End With
    Set cd = Nothing
End Sub

   2. Asignamos la macro a la autoforma: clic sobre el botón secundario y elegir Asignar macro en el menú contextual.

   3. Al hacer clic en la autoforma abrirá el cuadro de diálogo y podremos seleccionar uno o múltiples ficheros.

Una alternativa, en el caso de abrir siempre el mismo fichero de Excel, es crear esta subrutina que abrirá el fichero especificado tras Filename:=  

Sub AbrirFichero()
Workbooks.Open Filename:="C:\Carpeta\Libro.xlsx"
End Sub

Hipervínculo 

Los hipervínculos nos permiten acceder a la información dentro del mismo documento o en otros archivos desde Excel. Vamos a tratar de los vínculos a otros documentos, ya sean otros ficheros de Excel, páginas webs u otros programas. 

El hipervínculo se puede asociar a una celda, pero también a un objeto, imagen o gráfico. Seleccionamos la celda u objeto:

- clic sobre el botón secundario y elegir Hipervínculo en el menú contextual; o

- presionamos Ctrl+Alt+K

Entradas relacionadas:
Abrir ficheros con hipervínculos o cuadro de diálogo en Access