VBA Excel - Populando Combo Box no Formulário - Populate form control combo box using VBA

Receba  3 Calendários Customizáveis de  2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Mais um post rápido, que resolve.

Segue alguns códigos para que você possa popular o seu Combo Box nos formulários que você desenvolve.

Sub PrimeiroMetodo()

  ' Não se esqueça de mudar o combobox e o nome da planilha.

    With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

        .AddItem "Jan"

        .AddItem "Feb"

        .AddItem "Mar"

    End With

End Sub

Sub SegundoMetodo()

 ' Não se esqueça de mudar o combobox e o nome da planilha.

    With Sheet1.Shapes("drp_down1").ControlFormat

            'change fill range here

            .ListFillRange = "Sheet1!$a$1:$a$5"

    End With

End Sub

Sub TerceiroMetodo()

    Dim rng As Range, cl As Range

    'change fill range here

    Set rng = Sheet1.Range("a1:a5")

     ' Não se esqueça de mudar o combobox e o nome da planilha.

     With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

            For Each cl In rng

                .AddItem cl.Value

            Next

     End With

End Sub

Sub QuartaMetodo()

    Dim arr, i As Long

    'change fill range here

    arr = Sheet1.Range("a1:a5")

     ' Não se esqueça de mudar o combobox e o nome da planilha.

     With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

            For i = LBound(arr) To UBound(arr)

                .AddItem arr(i, 1)

            Next

     End With

End Sub

brazilsalesforceeffectiveness@gmail.com