✔ VBA Dashboards Specialist®: VBA Excel - Populando Combo Box no Formulário - Populate form control combo box using VBA

11 de fevereiro de 2013

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