¿Cómo navegar entre hojas de cálculo usando una lista desplegable en Excel?

Supongamos que tienes un libro que contiene múltiples hojas de cálculo, y ahora necesitas crear una lista desplegable o cuadro combinado que enumere todos los nombres de las hojas. Cuando selecciones un nombre de hoja desde la lista desplegable, se saltará inmediatamente a esa hoja. En este artículo, te mostraré cómo navegar entre hojas de cálculo utilizando una lista desplegable en Excel.

Navegar entre hojas de cálculo usando una lista desplegable en Excel

Navegar entre hojas de cálculo usando una lista desplegable en Excel

Para saltar a cada hoja seleccionada mediante una lista desplegable, sigue los siguientes pasos:

1. Haz clic en Desarrollador > Insertar > Cuadro Combinado (Control ActiveX), ver captura de pantalla:

2. Luego arrastra el ratón para dibujar un cuadro combinado, y luego haz clic derecho sobre él, selecciona Ver Código desde el menú contextual, ver captura de pantalla:

3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código para reemplazar el código original, ver captura de pantalla:

Código VBA: Navegar entre hojas de cálculo usando 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. Luego guarda y cierra esta ventana de código, y luego haz clic en Modo Diseño para apagar el modo diseño. Ahora, al seleccionar un nombre de hoja desde el cuadro combinado, irá a esa hoja de inmediato, ver captura de pantalla: