Itens em Combobox

Question

 

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!!!!

 

Answer 1

Fala caro Braz, tudo bem??

 

Aqui uma solução pra você..

 

Code Snippet

Private 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 Sub

 

 

 

Testa aí e me fala...

Até..

Answer 2

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

 

Answer 3

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!!!!