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


Tags: VBA, populando, list box, formulário, form, control, controle

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...