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 navegar entre las hojas de trabajo usando la lista desplegable en Excel?

Supongamos que tiene un libro de trabajo que contiene varias hojas de trabajo; ahora necesita crear una lista desplegable o un cuadro combinado que enumere todos los nombres de las hojas y cuando seleccione un nombre de hoja de la lista desplegable, saltará a esa hoja inmediatamente. En este artículo, presentaré cómo navegar entre las hojas de trabajo utilizando una lista desplegable en Excel.

Navegue entre las hojas de trabajo usando la lista desplegable en Excel


Navegue entre las hojas de trabajo mediante hipervínculos o botones:

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, luego puede navegar entre ellos según sus necesidades.

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!


Navegue entre las hojas de trabajo usando la lista desplegable en Excel


Para ir a cada hoja seleccionada usando una lista desplegable, siga los siguientes pasos:

1. Hacer clic Desarrollador > recuadro > Cuadro combinado (control ActiveX), mira la captura de pantalla:

2. A continuación, arrastre el mouse para dibujar un cuadro combinado, y luego haga clic con el botón derecho, seleccione Ver código desde el menú de contexto, ver captura de pantalla:

3. En el abierto Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código para reemplazar el código original, vea la captura de pantalla:

Código de VBA: navega entre las hojas de trabajo usando la lista desplegable

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. A continuación, guarde y cierre esta ventana de código, y luego haga clic Modo de diseño para desactivar el modo de diseño, ahora, al seleccionar un nombre de hoja del cuadro combinado, irá a esa hoja a la vez, vea la captura de pantalla:


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.
    Ilovemacro · 6 days ago
    hi there,
    Thank you very much for the code which create a dynamic combo box to navigate the sheets. Unfortunately I got an error. After navigating few sheets, the file automatically close. It doesn't even show any error message. I couldn't figure out the reason. I appreciate the help
    Thanks
  • To post as a guest, your comment is unpublished.
    roseanne · 6 months ago
    thanks for your code. It works for switching different sheet based on dropdown list.
    But I have several questions.
    1. after I process the related sheet, and want to go back to main menu(with sheet dropdown list), how could I do without using mouse?
    2. when I open the file, I would like the main menu(with dropdown list) as default . So I could start from this menu
    thanks
    rose
  • To post as a guest, your comment is unpublished.
    M · 1 years ago
    How do you change this to only show/select visible worksheets?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi,
      To ignore the hidden sheets from the drop down list, and only keep the visible worksheets, the following VBA code may help you:

      Private Sub ComboBox1_Change()
      'Updateby Extendoffice
      If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
      End Sub
      Private Sub ComboBox1_DropButtonClick()
      Dim xSheet As Worksheet
      On Error Resume Next
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
      ComboBox1.Clear
      For Each xSheet In ThisWorkbook.Sheets
      If xSheet.Visible Then
      ComboBox1.AddItem xSheet.Name
      End If
      Next xSheet
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End Sub
      Private Sub ComboBox1_GotFocus()
      If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
      End Sub

      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        M · 1 years ago
        It worked! Thank you! Do you know if this code will cause problems if sheets are renamed or will it update the list automatically?
        • To post as a guest, your comment is unpublished.
          skyyang · 1 years ago
          Hello,
          The above code works well when renaming the sheet name and the items in the drop down list will be updated automatically.
          You can try it.
  • To post as a guest, your comment is unpublished.
    Emmanuel · 1 years ago
    How can I add only specific sheets? and not all the sheet in the workbook
    • To post as a guest, your comment is unpublished.
      Christian · 11 months ago
      Did you have any joy finding code to show only certain sheets in the dropdown box?
  • To post as a guest, your comment is unpublished.
    Ghaz · 1 years ago
    How can I make the hidden sheet active and hide the home page?