Popular ComboBox

2024 - VBA & Macros

Post Recente por Trindade 9 anos atrás

3 Posts

2 Usuários

0 Reactions

715 Visualizações

RSS

Trindade

(@trindade)

Posts: 278

Reputable Member

Topic starter

Boa tarde, Srs.

Gostaria de saber como faço para popular um ComboBox com o nome das guia disponíveis na planilha.
Estou tentando utilizar o seguinte código:

Sub CarregarComboBoxGuia()

Dim i As Long

Application.ScreenUpdating = False

    For i = 1 To Worksheets.Count
        
        With ComboBoxGuia
            .AddItem ActiveSheet.Name
            .List(.ListCount - 1, 1) = ActiveSheet.Name
        End With
        
    Next i

Application.ScreenUpdating = True

End Sub

Esta contando as guia correto mas repetindo o nome da guia ativa para todas as opções do ComboBox, não sei onde estou errando.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

Postado : 23/02/2016 2:01 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Voce não está "navegando" nas planilhas assim activesheet e sempre a mesma

Não testei mas experimente>:

Sub CarregarComboBoxGuia()

Dim i As Long

Application.ScreenUpdating = False

    For i = 1 To Worksheets.Count
        
        With ComboBoxGuia
            .AddItem Sheets(i).Name
             .List(.ListCount - 1, 1) = Sheets(i).Name
End With
        
    Next i

Application.ScreenUpdating = True

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 23/02/2016 2:06 pm