Hipervínculo a hojas y hojas gráficas
Publicado por Cris (1 intervención) el 24/05/2018 15:14:03
Hola,
Cómo están? Los molesto con un problema. Necesito hacer un índice dinámico en un libro de Excel, es decir que contenga el hipervínculo a las diferentes hojas de ese mismo documento. El tema es que tengo algunas hojas que son un gráfico y por lo tanto no tiene una celda a la cual hacer referencia. Les quería consultar si hay una opción con VBA que me muestre las hojas cuando doy click en la celda que contiene el nombre de la hoja en el índice?
Entre el montón de macros que probé, les paso esta. Pero me saltea las hojas gráficas. La idea sería combinar esta macro con una que incluya los gráficos. Les dejo un Excel de prueba.
Mil gracias!
Cómo están? Los molesto con un problema. Necesito hacer un índice dinámico en un libro de Excel, es decir que contenga el hipervínculo a las diferentes hojas de ese mismo documento. El tema es que tengo algunas hojas que son un gráfico y por lo tanto no tiene una celda a la cual hacer referencia. Les quería consultar si hay una opción con VBA que me muestre las hojas cuando doy click en la celda que contiene el nombre de la hoja en el índice?
Entre el montón de macros que probé, les paso esta. Pero me saltea las hojas gráficas. La idea sería combinar esta macro con una que incluya los gráficos. Les dejo un Excel de prueba.
Mil gracias!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Activate()
Dim cHoja As Worksheet
Dim L As Long
L = 1With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDICE"
.Cells(1, 1).Name = "Indice"
End With
For Each cHoja In Worksheets
If cHoja.Name <> Me.Name Then
L = L + 1
With cHoja
.Range("A1").Name = "Inicio" & cHoja.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=" ", SubAddress:="Indice", TextToDisplay:="Volver al índice"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" & cHoja.Index, TextToDisplay:=cHoja.Name
End If
Next cHoja
End Sub
Valora esta pregunta
0