John tiene un libro de trabajo que tiene más de miles de URL, todas en la columna A. Estos no son hipervínculos; son texto directo de URL individuales. John quiere convertir las URL en hipervínculos activos, pero hacer la conversión individualmente es extremadamente tedioso, especialmente para tantas URL.

Como es el caso de la mayoría de los tediosos en Excel, la solución es usar una macro para hacer la conversión. Para ser eficaz, la macro debería recorrer cada celda en un rango seleccionado y, si la celda no está en blanco, convertir el contenido en un hipervínculo. Lo siguiente hará el truco:

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

La macro no es infalible; asume que si una celda contiene algo, es una URL válida. Lo que hace es verificar el contenido de la celda y, si el contenido no está precedido por el texto «http: //», entonces se agrega. A continuación, se crea el hipervínculo en función del contenido de la celda.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3110) se aplica a Microsoft Excel 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Converting_a_Range_of_URLs_to_Hyperlinks [Conversión de un rango de URL en hipervínculos].