Views

Histats

Vitrine

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


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

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias