Función personalizada (UDF) para obtener la dirección de un hipervínculo en una celda en Excel

Con el cambio de Blog, al tratar de pasar mis sitios recomendados al nuevo Blog, tuve que copiar los links de una página Web y pegarlos en Excel.

A qué viene esto ?

Viene que tuve la necesidad de obtener las direcciones de links en una celda y el texto del link en otra.

Al pegar links de una página Web a Excel, se pega el texto junto con el hipervínculo, es decir, que en la celda donde esté el link le podremos dar click y nos dirigirá hacia la página Web u objeto que tenga de destino.

Obtener la dirección  de los links

image

Al tener los links en Excel, si deseamos extraerlos a otra celda, podemos dar click derecho en la celda y elegir Modificar hipervínculo… y en el formulario que nos arroja tomar la dirección del apartado especificado como Dirección.

image

O podemos crear nuestra propia función personalizada (UDF) para extraer todos los hipervínculos en otras celdas y con formato de texto.

Recordemos que las funciones personalizadas deben estar contenidas en un módulo normal en el IDE de Visual Basic para Aplicaciones. Nuestra función tendrá el nombre de ObtenerHipervinculo.

Código de la UDF

Function ObtenerHypervinculo(Celda As Range)
'Con la propiedad Volatile forzamos a Excel a actualizar el</span>
'resultado de la función cada que haya un cambio en el libro.</span>
Application.Volatile
'Asignamos la propiedad Address de la celda con el hipervínculo.
ObtenerHypervinculo = Celda.Hyperlinks.Item(1).Address
End Function
El uso será como cualquier otra función de Excel. En una celda ingresamos
=ObtenerHipervinculo(Celda) y nos arrojará  el texto del hipervínculo.

image

You may also like...

2 Responses

  1. alex muñoz says:

    Hola, muchas gracias por el aporte, me ha salvado de una…claro que por alguna razón mi hipervinculo, no muestra la ruta completa, solo sale asi: ..Prueba12%20JUSTIFICACION%20CONTRATO%20INTERNET2014.docx, no muestra: file:///c:usersamunozdocuments, pero igual tu parte hace mas del 50% del trabajo.

  1. December 18, 2012

    […] Función personalizada (UDF) para obtener la dirección de un hipervínculo en una celda en Excel […]

Leave a Reply

Your email address will not be published.

%d bloggers like this: