Cómo hacer hipervínculos a hojas gráficas?

[Hola

Los hipervínculos dentro de un mismo archivo de Excel hacen referencia a un rango (celdas). Las hojas tipo gráfico no tienen celdas por lo que no es posible hacer/crear un hipervínculo (tal cual) hacia ellas.

Una forma es usar macros para ir hacia esa hoja-gráfico, una instrucción tan simple como:

Sub IrAGrafico()
sheets("Nombredelahojagrafico").select
End Sub

Puedes asociar eso a algún objeto por ejemplo.

Abraham Valencia

Mil gracias por tu respuesta. Eso lo intenté también pero no quisiera agregar objetos de a uno. Tengo como 30 hojas-gráfico. Se puede combinar esa instrucción con un condicional de tal manera que si encuentra la palabra”gráfico” haga x y si no haga y?

Mil gracias nuevamente por tu aporte! 

[Hola

¿Todas las hojas-gráfico tienen nombre similares?

Abraham Valencia

Hola Abraham,

Si, las hojas gráfico tienen una estructura similar: Gráfico 1, Gráfico 2, ... En el índice, una columna contiene este nombre (coincide tal cual el de cada hoja) y en la columna siguiente está el título del gráfico. Ahora estaba pensando en una macro que seleccione/active por ejemplo la hoja Gráfico 1 utilizando la celda donde está ese nombre (Gráfico 1) para construir la instrucción. Esta macro la pudo asociar a un botón “Ir a gráfico” para ejecutar la macro luego de seleccionar la celda que dice Gráfico 1 en el índice. Pude llegar hasta ese punto pero estoy trabada en el error 9 del tiempo de ejecución. Esto pasa cuando selecciono cualquier otra celda (es decir, no hay una hoja con ese nombre porque obviamente no la encuentra). No se como decirle a la macro que no haga nada si no encuentra a la hoja o que me aparezca un msgbox indicando el error. Intenté con un if y no me resultó. Un saludo! Mil gracias por preguntar!

[Hola

Prueba con la macro llamada "Indice":

Sub Indice()
Dim Nombre As String
Let Nombre = ActiveCell.Value
If ExisteHoja(Nombre) = False Then
    MsgBox "Elija un nombre correcto para la hoja"
    Exit Sub
End If
Sheets(Nombre).Select
End Sub
Function ExisteHoja(ByVal Nombre_Hoja As String) As Boolean
On Error Resume Next
ExisteHoja = CBool(Len(Sheets(Nombre_Hoja).Name) > 0)
End Function

La función (UDF) es la que verifica si existe o no una hoja con el nombre.

Saludos]

Abraham Valencia