¿Cómo seguir un hipervínculo a una hoja oculta en Excel?
Si tiene un libro con varias hojas de cálculo y desea usar hipervínculos en una hoja maestra para navegar a hojas ocultas, notará que estos hipervínculos dejan de funcionar una vez que las hojas están ocultas. Para solucionarlo, puede emplear código VBA que garantice que, al hacer clic en un hipervínculo, se muestre automáticamente la hoja oculta correspondiente. Este artículo le guía paso a paso para implementar esta funcionalidad e incluso le ofrece la opción de volver a ocultar la hoja al regresar a la hoja maestra.
Seguir un hipervínculo para abrir una hoja oculta con código VBA
Seguir un hipervínculo para abrir una hoja oculta y volver a ocultarla con código VBA
Seguir un hipervínculo para abrir una hoja oculta con código VBA
El siguiente código VBA le permite abrir la hoja de cálculo oculta al hacer clic en su hipervínculo correspondiente. Siga estos pasos:
1. Haga clic con el botón derecho en la pestaña de la hoja desde la que desea seguir el hipervínculo a la hoja oculta y seleccione Ver código en el menú contextual. A continuación, en la ventana emergente de Microsoft Visual Basic para Aplicaciones, copie y pegue 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 la línea If Target.Column = 1 Then indica el número de la columna que contiene los hipervínculos; cámbielo según sus necesidades.
2. A continuación, guarda y cierra esta ventana de código. Ahora, al hacer clic en un hipervínculo que enlace con una hoja oculta específica, dicha hoja se abrirá inmediatamente.
Seguir un hipervínculo para abrir una hoja oculta y volver a ocultarla con código VBA
A veces, necesita seguir un hipervínculo para abrir una hoja oculta y, al volver a la hoja maestra, desea que la hoja recién abierta se vuelva a ocultar. El siguiente código VBA le será de gran utilidad:
1. Haga clic con el botón derecho en la pestaña de la hoja desde la que desea seguir el hipervínculo a la hoja oculta y elija Ver códigoen el menú contextual. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código en el módulo en blanco:
Código VBA: Seguir hipervínculo para abrir hoja oculta y volver a ocultarla 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. A continuación, guarde y cierre la ventana de código. Al hacer clic en el hipervínculo, se abrirá inmediatamente la hoja oculta vinculada; sin embargo, al volver 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 hoja que coincidan exactamente con el texto del hipervínculo.
Demostración: Seguir un hipervínculo para abrir una hoja oculta con código VBA
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos