|
En el Editor (Alt+F11 para llamarlo) doble clic a la hoja que tiene el índice y copiá la siguiente rutina:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'"Vínculo a Hoja2" es el texto del hipervínculo
Select Case Target.Name
Case "Vínculo a Hoja2"
Worksheets("Hoja2").Visible = True
Worksheets("Hoja2").Select
Case "Vínculo a Hoja3"
Worksheets("Hoja3").Visible = True
Worksheets("Hoja3").Select
Case "Vínculo a Hoja4"
Worksheets("Hoja4").Visible = True
Worksheets("Hoja4").Select
'así con todas las hojas que tengas
End Select
End Sub
Luego en cada hoja (Hoja2, Hoja3, etc) debes agregar unas instrucciones que te ocultan nevamente la hoja al salir:
Private Sub Worksheet_Deactivate()
Worksheets("Hoja2").Visible = False
End Sub
'esto en cada hoja del Editor, reemplazando el nombre, menos en la del Indice.
Esperando te sea de utilidad, te saluda
Elsa
PD) No dejes de visitar el sitio www.exceluciones.com , hay un muy buen boletín, de suscripción GRATUITA con ejemplos, trucos, etc, etc,
|
