Usuário com melhor resposta
Combobox com dados da planilha...

Pergunta
-
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
-
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
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
-
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)
-
-
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
-
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 = 1While Cells(a, 1).Value <> ""
a = a + 1
ComboBox1.AddItem Cells(a, 1).Value
WendEnd Sub