Mostrar hoja oculta y volver a ocultar con hipervínculos
Tengo un excel en hoja1 (informes) y en ella los hipervínculos a las otras hojas.
Si están visibles me llevan los hipervínculos a las hojas pero cuando están ocultas no lo hacen.
En hoja 1 tengo
Private Sub Worksheet_Activate()
Worksheets("Informes").Range("K5").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A4")) Is Nothing Then
Worksheets(Target.Value).Range("Z1").Value = _
Worksheets(Target.Value).Visible
Worksheets(Target.Value).Visible = -1
Worksheets(Target.Value).Activate
End If
End Sub
y en el reto de las hojas ejemplo hoja2 (bandejas)
Private Sub Worksheet_Deactivate()
Worksheets("bandejas").Visible = Worksheets _
("bandejas").Range("Z1").Value
End Sub
Como hago para que funcionen los hipervínculos con las hojas ocultas.. ¿qué me falta?
1 respuesta
Sinceramente no entiendo mucho tu código, pero si lo que quieres es moverte entre hojas con un click porque no simplemente pones un botón en cada hoja con una macro para que haga visible dicha hoja y oculte el resto?
Ejemplo si tienes 3 hojas
- "Hoja1 =informes"
- "Hoja2 =bandejas"
- Hoja3 = registros"
Y por en hoja 1 un botón con la siguiente macro
Sub solo_informe()
Hoja1.visible=xlSheetvisible
Hoja2.visible=xlSheethidden
Hoja3.visible =xlSheethidden
End sub
Y asi modifica los otros 2
