✔ Programação GLOBAL®: VBA Excel - Populando Combo Box no Formulário - Populate form control combo box using VBA

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