¿Cómo navegar entre hojas de cálculo mediante una lista desplegable en Excel?
Supongamos que tiene un libro con varias hojas de cálculo y necesita crear una lista desplegable o un cuadro combinado que muestre todos los nombres de las hojas; al seleccionar un nombre en la lista, el libro debe saltar inmediatamente a esa hoja. En este artículo se explica cómo navegar entre hojas de cálculo mediante una lista desplegable en Excel.
Navegue entre hojas de cálculo mediante una lista desplegable en Excel
Navegue entre hojas de cálculo mediante una lista desplegable en Excel
Para saltar a cada hoja seleccionada mediante una lista desplegable, siga estos pasos:
1. Haga clic en Desarrollador > Insertar > Cuadro combinado (Control ActiveX). Consulte la captura de pantalla:
2. A continuación, arrastre el ratón para dibujar un cuadro combinado, haga clic con el botón derecho sobre él y seleccione Ver código en el menú contextual. Consulte la captura de pantalla:
3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copie y pegue el siguiente código para reemplazar el original. Consulte la captura de pantalla:
Código VBA: Navegue entre hojas de cálculo mediante una 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 haga clic en Modo diseño para desactivar el modo diseño. Ahora, al seleccionar un nombre de hoja en el cuadro combinado, se desplazará inmediatamente a dicha hoja. Consulte la captura de pantalla:
Navegue entre hojas de cálculo mediante hipervínculos o botones: Con la utilidad Kutools para Excel de Crear tabla de enlace, puede listar rápidamente todos los nombres de las hojas de cálculo en una hoja nueva con hipervínculos o botones de macro, y navegar entre ellas según sus necesidades.
Kutools para Excel: con más de 300 útiles complementos para Excel, pruébelos gratis sin limitaciones durante 30 días.¡Descargue y pruebe gratis ahora! |
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