VBA Excel - Populando List Box no Formulário - Populate form control list 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 List Box nos formulários que você desenvolve.

Sub PrimeiroMetodo()

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

    With Sheet1.Shapes("lst_box1").ControlFormat

        .RemoveAllItems

        .AddItem "Jan"

        .AddItem "Feb"

        .AddItem "Mar"

    End With

End Sub

Sub SegundoMetodo()

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

    

    With Sheet1.Shapes("lst_box1").ControlFormat

            'change fill range here

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

    End With

End Sub

Sub TerceiroMetodo()

    Dim rng As Range, cl As Range

    ' Não se esqueça de mudar o Range.

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

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

     With Sheet1.Shapes("lst_box1").ControlFormat

        .RemoveAllItems

            For Each cl In rng

                .AddItem cl.Value

            Next

     End With

End Sub

Sub QuartaMetodo()

    Dim arr, i As Long

    

    'Atente em mudar a referência do range.

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

    

    

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

     With Sheet1.Shapes("lst_box1").ControlFormat

        .RemoveAllItems

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

                .AddItem arr(i, 1)

            Next

     End With

End Sub

brazilsalesforceeffectiveness@gmail.com