Como carregar um ComboBox no VBA Excel?

[Betocadilhe]

Eu tenho um combobox num UserForm. Quero carregar esse combo usando a instrução For...Each em conjunto com o objeto Range. Eu tenho que carregar os meses do ano que estão na Plan1 no intervalo das células E1:E12. Depois eu quero usar no meu código o mês que for selecionado pelo usuário. Como faço isso?

Luiz Roberto

[João.Neto]

Luiz, você pode usar o código abaixo:

Option Explicit

Private Sub UserForm_Initialize()

    Dim r As Range
    For Each r In ThisWorkbook.Worksheets("Plan1").Range("E1:E12").Rows
        Me.ComboBox1.AddItem Month(r.Cells(1, 1))
    Next r

End Sub

Ou, fazer com que apareça o nome do mês no formato "janeiro", por exemplo:

Option Explicit

Private Sub UserForm_Initialize()

    Dim r As Range
    For Each r In ThisWorkbook.Worksheets("Plan1").Range("E1:E12").Rows
        Me.ComboBox1.AddItem Format(r.Cells(1, 1),"mmmm")
    Next r

End Sub

E para utilizar o valor que for selecionado no combobox, você utiliza, por exemplo:

Msgbox ComboBox1.Text

beleza? abs B)