¿Cómo seguir un hipervínculo hacia una hoja oculta en Excel?
Si tienes un libro con múltiples hojas de cálculo y deseas usar hipervínculos en una hoja maestra para navegar hacia hojas ocultas, notarás que los hipervínculos se vuelven inactivos una vez que las hojas están ocultas. Para resolver esto, puedes usar código VBA para asegurarte de que al hacer clic en un hipervínculo se abra automáticamente la hoja oculta correspondiente. Este artículo proporciona instrucciones paso a paso para lograr esta funcionalidad e incluso ofrece la opción de volver a ocultar la hoja después de regresar a la hoja maestra.
Seguir hipervínculo para abrir hoja oculta con código VBA
Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente con código VBA
Seguir hipervínculo para abrir hoja oculta con código VBA
El siguiente código VBA puede ayudarte a abrir la hoja de trabajo oculta cuando haces clic en su hipervínculo relativo; por favor, sigue estos pasos:
1. Haz clic derecho en la pestaña de la hoja desde la que deseas seguir el hipervínculo hacia la hoja oculta, y luego selecciona Ver Código en el menú contextual. En la ventana emergente de Microsoft Visual Basic for Applications, copia y pega el siguiente código en el módulo en blanco:
Código VBA: Seguir hipervínculo para abrir hoja oculta:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
Nota: En el código anterior, el número 1 en este script If Target.Column = 1 Then indica el número de columna que contiene los hipervínculos; cámbialo según sea necesario.
2. Luego guarda y cierra esta ventana de código. Ahora, cuando hagas clic en un hipervínculo que lleva a una hoja oculta específica, la hoja se abrirá inmediatamente.
Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente con código VBA
A veces, necesitas seguir el hipervínculo para abrir la hoja oculta, y cuando regreses a la hoja maestra, quieres que la hoja abierta se oculte nuevamente. El siguiente código VBA puede ayudarte:
1. Haz clic derecho en la pestaña de la hoja desde la que deseas seguir el hipervínculo hacia la hoja oculta, y luego selecciona Ver Código en el menú contextual. En la ventana emergente de Microsoft Visual Basic for Applications, copia y pega el siguiente código en el módulo en blanco:
Código VBA: Seguir hipervínculo para abrir hoja oculta y luego ocultarla nuevamente al regresar:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Luego guarda y cierra la ventana de código. Cuando hagas clic en el hipervínculo, la hoja oculta vinculada se abrirá inmediatamente, pero si regresas a la hoja maestra que contiene los hipervínculos, la hoja abierta se ocultará automáticamente de nuevo.
Nota: Estos códigos solo se aplican a nombres de hojas que coinciden con el texto del hipervínculo.
Demostración: Seguir hipervínculo para abrir hoja oculta con código VBA
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos