Combobox com dados da planilha...

Question

olá pessoal, alguem sabe como faço para colocar os dados de uma planilha em uma combobox. por exemplo, quero pegar os dados das células a1 até a a9 e colocalas na combobox...

Answer 1

Tiago,

Considerando que o ComboBox chama-se ComboBox1 e foi inserido na planilha e não em um formulário. Segue código abaixo:

Private Sub Worksheet_Activate()

    Dim I As Long

    ComboBox1.Clear
   
    For I = 1 To 9
        ComboBox1.AddItem Cells(I, 1).Value
    Next I

End Sub

Att.

Ari C. Raimundo

Answer 2

Muito obrigado Ari Raimundo, mas preciso de alg mais, por que a combo está com muitos campos em branco, e eu estava tentando mas nao consegi retirar todos os campos em branco (os campos estão em branco por que eu selecionei um intervalo muito grande, mas eu preciso de um intervalo grande já que se eu adicionar algum produto, ele não apareceria)

Answer 3

Seria melhor dispor de um exemplo.

---

jose

Answer 4

Tiago,

Verifique se o valor é vazio antes de incluir no ComboBox.

If (Cells(I, 1).Value) <> "" Then
    ComboBox1.AddItem Cells(I, 1).Value
End If

Att.

Ari C. Raimundo

Answer 5

olá pessoal, para quem também tem essa duvida, aqui está como eu resolvi (com a ajuda dos nossos colegas do forum msdn):


Private Sub UserForm_initialize()

Dim a As String
a = 1

    While Cells(a, 1).Value <> ""
    a = a + 1
    ComboBox1.AddItem Cells(a, 1).Value
   
    Wend

End Sub