none
Itens em Combobox RRS feed

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

     

    quinta-feira, 8 de janeiro de 2009 18:49

Respostas

  • 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é..

    segunda-feira, 12 de janeiro de 2009 12:06

Todas as Respostas

  • 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é..

    segunda-feira, 12 de janeiro de 2009 12:06
  • 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

     

    terça-feira, 13 de janeiro de 2009 14:13
  • 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!!!!

     

     

     

    terça-feira, 13 de janeiro de 2009 14:29