Como navegar entre planilhas usando uma lista suspensa no Excel?

Suponha que você tenha uma pasta de trabalho que contém várias planilhas e agora precisa criar uma lista suspensa ou caixa de combinação que liste todos os nomes das planilhas. Quando você selecionar um nome de planilha na lista suspensa, será direcionado imediatamente para essa planilha. Neste artigo, vou apresentar como navegar entre planilhas usando uma lista suspensa no Excel.

Navegue entre planilhas usando uma lista suspensa no Excel

Navegue entre planilhas usando uma lista suspensa no Excel

Para pular para cada planilha selecionada usando uma lista suspensa, siga as etapas abaixo:

1. Clique em Desenvolvedor > Inserir > Caixa de Combinação (Controle ActiveX), veja a captura de tela:

2. Em seguida, arraste o mouse para desenhar uma caixa de combinação e, depois, clique com o botão direito nela e selecione Visualizar Código no menu de contexto, veja a captura de tela:

3. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código para substituir o código original, veja a captura de tela:

Código VBA: Navegue entre planilhas usando uma lista suspensa

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. Depois, salve e feche esta janela de código e, em seguida, clique em Modo de Design para desativar o modo de design. Agora, ao selecionar um nome de planilha na caixa de combinação, você será direcionado para essa planilha imediatamente, veja a captura de tela: