Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo seguir el hipervínculo a la hoja oculta en Excel?

Por ejemplo, tengo un libro de trabajo que contiene varias hojas de trabajo, la primera hoja maestra tiene hipervínculos a otras hojas, y ahora, oculto todas las hojas excepto la primera. En este caso, los hipervínculos que vinculan a las hojas ocultas no están disponibles. Pero, ¿cómo puedes hacer que estos hipervínculos funcionen correctamente? Cuando hace clic en un hipervínculo, la hoja oculta enlazada se abrirá a la vez como se muestra en la siguiente captura de pantalla:

doc hyperlink a la hoja oculta 1

Siga el hipervínculo para abrir la hoja oculta con el código VBA

Siga el hipervínculo para abrir la hoja oculta y luego vuelva a ocultarla con el código VBA


Enumere todos los nombres de la hoja de trabajo y enlace a cada hoja:

Con Kutools for Excel's Crear lista de nombres de hoja utilidad, puede enumerar rápidamente todos los nombres de la hoja de trabajo en una hoja nueva con hipervínculos o botones de macro según lo necesite.

nombres de hoja de trabajo con hipervínculos nombres de hoja de trabajo con botones de macro
doc-list-worksheet-names2  2 doc-list-worksheet-names2  2 doc-list-worksheet-names2

Siga el hipervínculo para abrir la hoja oculta con el código VBA


El siguiente código de VBA puede ayudarlo a abrir la hoja de trabajo oculta al hacer clic en su hipervínculo relativo, haga lo siguiente:

1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea seguir el hipervínculo a la hoja oculta, y luego elija Ver código desde el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el Módulo en blanco:

Código de VBA: siga el hipervínculo para abrir la hoja oculta:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    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

doc hyperlink a la hoja oculta 2

Nota: En el código anterior, el número 1 en este Si Target.Column = 1 Then la secuencia de comandos indica el número de columna que contiene los hipervínculos, por favor, cámbiela a su necesidad.

2. A continuación, guarde y cierre esta ventana de código; ahora, cuando hace clic en el hipervínculo que enlaza con la hoja oculta específica, la hoja oculta se abrirá de inmediato.


Siga el hipervínculo para abrir la hoja oculta y luego vuelva a ocultarla con el código VBA

A veces, debe seguir el hipervínculo para abrir la hoja oculta, y cuando retrocede en la hoja maestra, desea que la hoja abierta se oculte nuevamente. El siguiente código de VBA puede hacerte un favor:

1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea seguir el hipervínculo a la hoja oculta, y luego elija Ver código desde el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el Módulo en blanco:

Código de VBA: siga el hipervínculo para abrir la hoja oculta cuando vuelva a ocultarla de nuevo:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

doc hyperlink a la hoja oculta 3

2. Luego, guarde el anuncio en la ventana de código, cuando haga clic en el hipervínculo, la hoja oculta enlazada se abrirá inmediatamente, pero si vuelve a la hoja maestra que contiene los hipervínculos, la hoja abierta se ocultará automáticamente nuevamente.

Nota: Estos códigos solo se aplican a los nombres de las hojas que coinciden con el texto de su hipervínculo.


Demostración: siga el hipervínculo para abrir la hoja oculta con el código VBA

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.