Usuário com melhor resposta
Itens em Combobox

Pergunta
-
Olá caros amigos, espero que todos tenham tido um ótimo Natal e que tenham um ano de 2009 maravilhoso.
Venho pedir a primeira ajuda de 2009 em VBA no Excel rsrsrsrsrsrsrsrsrs
Como faço para remover itens repetidos ne uma combobox?
Ex:
Tenho na coluna A nomes de itens ex:Calibre, Peça, etc na coluna B tenho os modelos
Isso quer dizer que tenho vários nomes repetidos na coluna A o que diferencia um de outro é o modelo que está na coluna B
Pois bem, os nomes da coluna A são carregado em uma combobox e quando seleciono um nome aparece na combobox todos os modelos daquele nome.
Só que gostaria que carregasse apenas um nome na combobox1.
Como faço para carregar em uma combobox somente um nome de cada item? Se tenho 15 nomes "Calibre" 38 nomes Peças gostaria que carregasse apenas um nome Calibre e um nome Peça.
Desde já muito obrigado!!!!
Respostas
-
Fala caro Braz, tudo bem??
Aqui uma solução pra você..
Code SnippetPrivate Sub UserForm_Initialize()
Dim n As Long, texto As Variant
For n = 1 To 65536
If Cells(n, 1) = "" Then Exit For
If InStr(texto, Cells(n, 1)) = 0 Then
texto = texto & "|" & Cells(n, 1) '& "|"
End If
Next
texto = Split(texto, "|")
For i = 1 To UBound(texto)ComboBox1.AddItem texto(i)
Next
End SubTesta aí e me fala...
Até..
Todas as Respostas
-
Fala caro Braz, tudo bem??
Aqui uma solução pra você..
Code SnippetPrivate Sub UserForm_Initialize()
Dim n As Long, texto As Variant
For n = 1 To 65536
If Cells(n, 1) = "" Then Exit For
If InStr(texto, Cells(n, 1)) = 0 Then
texto = texto & "|" & Cells(n, 1) '& "|"
End If
Next
texto = Split(texto, "|")
For i = 1 To UBound(texto)ComboBox1.AddItem texto(i)
Next
End SubTesta aí e me fala...
Até..
-
Private Sub UserForm_Initialize()
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim I, ULTLINHA As Long
ULTLINHA = Plan1.Range("A65536").End(xlUp).Row
On Error Resume Next
For Each VARVALUE In Plan1.Range("A2:A" & ULTLINHA)
OCOLLECTION.Add VARVALUE, VARVALUE
Next
For I = 1 To OCOLLECTION.Count
ComboBox1.AddItem OCOLLECTION.Item(I)
Next
End Sub -
Eta meu grande irmão Evangelista:
Até que enfim está de volta a ativa no Fórum em rsrsrsrsrsrsrsrsrsrsrsrsrsr
Muito obrigado pela sua grande ajuda, como sempre funcionou perfeitamente.
Agradeço também ao amigo Paulo pela atenção ao meu tópico.
Um grande abraço a vocês e fiquem com Deus!!!!