Como preencher um ComboBox de UserForm com todos os nomes de planilhas no Excel?

Este artigo trata de como preencher todos os nomes de planilhas da pasta de trabalho atual em um ComboBox de UserForm no Excel.

Preencha um ComboBox de UserForm com todos os nomes de planilhas usando código VBA

Preencha um ComboBox de UserForm com todos os nomes de planilhas usando código VBA

O seguinte código VBA pode ajudá-lo a inserir todos os nomes de planilhas da pasta de trabalho atual em um ComboBox de UserForm. Por favor, siga os passos abaixo.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, insira um UserForm clicando em Inserir > UserForm, conforme mostrado na captura de tela abaixo.

3. Em seguida, desenhe e insira um controle ComboBox no UserForm. Veja a captura de tela:

4. Clique com o botão direito do mouse no ComboBox inserido e selecione Visualizar Código no menu de contexto. Veja a captura de tela:

5. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o código VBA abaixo para substituir o original na janela de Código.

Código VBA: Preencha um ComboBox de UserForm com todos os nomes de planilhas da pasta de trabalho atual

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Observação: No código, ComboBox1 é o nome do ComboBox inserido. Altere-o para o nome que você estiver utilizando.

6. Pressione a tecla F5 para executar o código. No UserForm aberto, você pode ver que todos os nomes das planilhas da pasta de trabalho atual estão sendo exibidos no ComboBox, conforme mostrado na captura de tela abaixo:

Artigos Relacionados:

• Como copiar o valor do ComboBox para a célula ativa no Excel?
• Como exibir o formato de data na saída do ComboBox no Excel?
• Como abrir uma planilha específica pelo valor selecionado de um ComboBox no Excel?
• Como evitar ou desativar a digitação em um ComboBox no Excel?
• Como sair do ComboBox com Tab para selecionar uma célula específica no Excel?