Crea una hoja Index en tu Excel

Descargar el fichero: index.xlsm

Hagamos un indice en la primera hoja de un libro de Excel, para listar todas las hoja y establecer un hipervínculo que nos lleve a cada hoja. Cuando en un libro de Excel tenemos muchísimas hojas, en ocasiones es aburrido llegar a ir hasta una concreta. Para facilitar nuestro trabajo vamos a establecer una primera hoja llamada Index en la que vamos a escribir el nombre que queremos dar a cada hoja y luego las vamos a hipervincular.

Inicialmente las hojas del libro se denominan: Hoja1, Hoj2, y así hasta Hoja101.

Disponemos de una macro que renombra las hojas dándolas el nombre que hemos indicado en la columna C, comenzando en la celda C5. La primera hoja será la propia hoja en la que se encuentra el listado y que denominaremos Index. Las 100 hojas restantes irán tomando el nombre que se indica en la lista.

Código:

Sub renombra_hoja()
Dim Hoja As Worksheet
Dim Fila As Long
Fila = 5
For Each Hoja In Worksheets
  Hoja.Name = Cells(Fila, 3)
  Fila = Fila + 1
Next
End Sub

Disponemos de otra macro que crea los hipervínculos.

Código:

Sub Hipervincula()
Dim Nombre As String
Range("C5").Select
Do
  Nombre = Selection.Value
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
      "'" & Nombre & "'!A1", TextToDisplay:=Nombre
  ActiveCell.Offset(1, 0).Select
Loop While Not IsEmpty(ActiveCell)
Range("A1").Select
End Sub

Incluimos dos botones que lanzan las macros.

Debemos tener especial cuidado de que en la lista existan tantos nombres como hojas existen el el libro de Excel en el que estamos.

¿Y si no quiero cambiar los nombres?

En caso de que desees establecer los hipervínculos pero no quieras cambiar los nombres de las hojas, puedes recurrir al ejemplo siguiente.

Disponemos de una macro que lista los nombres de las hojas existentes y luego le pasamos la macro que crea los hipervínculos.

La macro que lista las hojas existentes es la siguiente.

Código:

Sub Lista_nombres()
Dim Hoja As Worksheet
Dim Fila As Long
Fila = 5
For Each Hoja In Worksheets
  Cells(Fila, "G") = Hoja.Name
  Cells(Fila, "F") = Fila - 4
  Fila = Fila + 1
Next
End Sub

La macro que realiza los hipervínculos la hemos llamado Hipervincula2 que es similar a la macro Hipervincula. Lo único que cambia es la celda de inicio que ataca la macro.