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