Cuando escribimos un correo electrónico, una ruta de red o de Internet se crea automáticamente un hipervínculo que nos lleva al sitio, pero en ocasiones nos interesa convertir hipervínculos en texto Excel.
Disponemos de una hoja Excel con el origen de datos:, donde:
- Columna A. Dirección URL con hipervínculo.
| A | B | C | |
|---|---|---|---|
| 1 | www.google.es | ||
| 2 | www.bing.es | ||
| 3 | www.microsoft.com |
Deseamos obtener en la columna B la dirección de Internet como texto en Excel.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Function Texto_Link (Link As Range)
Texto_Link = Link.Hyperlinks(1).Address
If Texto_Link = 0 Then Texto_Link = ""
End Function
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Ir a: Celda A1
Escribir: www.google.es O el sitio web deseado.Ir a: Celda B1
Escribir:=Texto_Link(A1)O tambíén, Ir a: Barra de fórmulas
Clic sobre 
(Insertar función) Ir a: O seleccionar una categoría Seleccionar: Definida por el usuario Doble clic sobre: Texto_Link. Mostrará los argumentos de la función.
- Ir a: Link
Clic sobre A1. Celda sobre la que deseamos obtener la dirección de Internet como texto.Copiar la celda B1
Pegar en el rango B2:B4. Para aplicar la fórmula al rango.Verificar en B1 como se muestra la dirección de Internet como texto.
Excel Experto VBA - Macros
Excelente, muy bien explicado y funciona de maravilla. Muchas Gracias
Hola
Le he estado dando vueltas a esto y no me funciona. He probado varias opciones pero, al final, obtengo el error #¡VALOR!
¿Qué estoy haciendo mal?
(Nivel de programación en VBA y Macros: 0)
Hola Felipe,
Verifica que el nombre de la macro, en el ejemplo: Texto_Link está escrito igual las cuatro veces.
Saludos.