LucasSchuster

Olá, Estou com um probleminha no meu código vba (vou postar logo a baixo), eu tenho varias combobox, quando seleciono uma a outra busca outros valores, até ai tudo bem, porém preciso eliminar dados que aparecem mais de uma vez na combobox em questão (obs.: eu tenho dados iguais que aparecem mais de uma vez na minha tabela, na mesma coluna, mas para a combobox em questão preciso que apareça somente uma vez). O código que estou usando é este: Private Sub categoria_Change() Sheets("Materiais - Geral").Select Dim lin As Integer lin = 2 With Sheets("Materiais - Geral") Do Until .Range("A" & lin).Value = "" If .Range("A" & lin).Value = categoria.Text Then subtipo.AddItem .Range("C" & lin).Value End If lin = lin + 1 Loop End With End Sub Esta funcionando e aparecendo todos os dados, inclusive os que aparecem mais de uma vez na lista, o que não quero que aconteça. Onde está o erro do código que não estou encontrando? Quem puder ajudar agradeço muito. Obrigado desde já.