Una macro para hipervinculos

Siempre he creído que una de las características natas de mi persona por la cual siempre termino aprendiendo habilidades inusuales es mi pereza, la falta de ganas de hacer una tarea repetitiva una y otra vez y es que por que hacer una tarea miles de veces si puedes hacer una actividad UNA solo vez y ya (aunque sea más difícil). Esto ha provocado que constantemente busque como realizar diferentes tareas de la manera más simple posible y al mismo tiempo (después de verme) muchos de mis amigos me consulten sobre como realizar diferentes tareas (algunas que la verdad jamas hubiera imaginado siquiera).

Justo hace unos días uno de mis amigos me pidió ayuda para obtener las direcciones de correo de una tabla de excel, no es que sea tonto ni nada similar, sino que los correos electrónicos venían en celdas con hipervinculos, es decir la celda traía un hipervinculo de correo electrónico pero no la dirección, se podría cambiar “fácilmente” dando clic derecho sobre la celda y después modificar hipervinculo sin embargo el numero de registros era enorme y seria muuuy tardado, por lo cual se me ocurrió realizar una pequeña macro que nos ahorrara mucha chamba (insisto, soy huevon).

Nunca antes me había visto en la necesidad de crear una macro pero ya que a fin de cuentas están basada en visual basic no pensé que fuera tan difícil y la verdad no lo fue, de hecho lo único tardado fue encontrar los métodos adecuados para realizar esta tarea (que esperaban es la primera vez que hago una).

La macro resultante es la siguiente:

Sub Macro()
Dim celda As String
Dim link As String
Dim n As Integer
For n = 1 To 1168' bucle que hara lo mismo desde la celda E1 hasta la celda E1168
    celda = "E" & n
    Range(celda).Select
    If ActiveCell.Hyperlinks.Count > 0 Then' nos aseguramos de que tenga hipervinculo
       Selection.Hyperlinks(1).TextToDisplay = Selection.Hyperlinks(1).Address' si tiene hipervinculo lo mostramos
    End If
Next
End Sub

No tengo idea de si esta macro puede servirle a alguien pero de cualquier manera quería compartirla, seguramente habrá una manera más fácil de hacerlo pero insisto es mi primera vez, así que no sean muy rudos 😛

Actualización 16-01-2009: Carla preguntaba como hacer un indice para las hojas de excel, pues bien, después de buscar un poco me encontré con la solución, básicamente es necesario crear un nuevo modulo en el libro de excel y escribir:

Sub Links_hojas()
   Dim wrbLibro As Workbook
   Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
   Dim intFila, intColumna As Integer
   Set wrbLibro = ActiveWorkbook
   Set wrsHojaActiva = ActiveSheet
   'en que fila/columna empezar la lista
   intFila = 4
   intColumna = 1
   'el bucle repasa todas las hojas
   For Each wsHoja In wrbLibro.Worksheets
      'para excluir hoja de los links
      If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
      'crear links
      If wsHoja.Name <> wrsHojaActiva.Name Then
         'Nota: las siguientes 3 lineas escribanlas en una
         wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna),
         "", SubAddress:="'" & wsHoja.Name & "'!A1",
         TextToDisplay:=wsHoja.Name
         intFila = intFila + 1
      End If
      ProxHoja:
   Next wsHoja
End Sub

El articulo original esta disponible en xltoday.net lugar en el cual encontraran muchos otros ejemplos de macros 😉

3 thoughts on “Una macro para hipervinculos”

  1. Pues esa es la onda de los grandes pensadores, TODOS son huevones, trabajan el cerebro pero su huevona naturaleza los obliga a trabajar una sola vez en vez de hacer tediosas y repetitivas tareas por horas o dias. Así fue como a Euler se le ocurrió la manera de sumar los primeros naturales consecutivos.

    Saludos y un abrazo.

  2. hola, bonito día! no tengo tanta paciencia como tu 🙁 pero si muchas ganas de aprender. Quisiera que me ayudaras con una macro:

    El asunto es este: tengo mil hipervinculos en la primera hoja demi libro de excel hacia miles de hojas en el mismo libro, pero estas hojas las acabo de renombrar (esa macro ya la tengo); pero como sabras al renombrar hojas se pierden los hipervinculos, en mi indice (mi primer hoja) vienen los nombres que ya cambié. Sólo quisierea que la macro rediccionara el hipervinculo al nombre que indica mi indice.

    Gracias

Comments are closed.