none
Combobox com dados da planilha... RRS feed

  • Pergunta

  • 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...
    sexta-feira, 11 de dezembro de 2009 00:03

Respostas

  • 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
    • Marcado como Resposta tiagofabre sábado, 19 de dezembro de 2009 05:14
    sexta-feira, 11 de dezembro de 2009 15:43
  • 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
    • Marcado como Resposta tiagofabre sábado, 19 de dezembro de 2009 05:14
    domingo, 13 de dezembro de 2009 02:45

Todas as Respostas

  • 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
    • Marcado como Resposta tiagofabre sábado, 19 de dezembro de 2009 05:14
    sexta-feira, 11 de dezembro de 2009 15:43
  • 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)
    sábado, 12 de dezembro de 2009 15:12
  • Seria melhor dispor de um exemplo.
    jose
    sábado, 12 de dezembro de 2009 20:29
  • 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
    • Marcado como Resposta tiagofabre sábado, 19 de dezembro de 2009 05:14
    domingo, 13 de dezembro de 2009 02:45
  • 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

    sábado, 19 de dezembro de 2009 05:11