Este fórum está sendo desativado

[gilbertjuniors]

Pessoal, bom dia.

Tenho uma lista de dados numa planilha que podem ter os seguintes Status: Programado, Concluído, Em Espera, Em Atraso, e se a diretoria quiser poderão ser criados mais tipos de Status.

Criei um Userform para navegar por estas ordens de serviço que estão nesta planilha "Dados".
Criei uma ComboBox para filtrar pelo Status e quero que quando o Userform inicializar as possibilidades de Status que estão na coluna 'A' sejam carregadas porém, sem repetição (O que está acontecendo é que aparesem Programado, Programado, Concluído,Concluído,Concluído,Em Espera, Em Atraso pois existem mais de uma OS com cada Status)

Achei um tutorial usando If Not ComboBox.exists(valor) porém, não deu certo

Código: Selecionar todos

Private Sub UserForm_Initialize()
    Dim line, firstLine, lastLine As Integer: firstLine = 2
    Dim cell As Range

    lastLine = ThisWorkbook.Worksheets("Dados").Range("C2").End(xlDown).Row
    
    With ControlForm.ComboBox1
        For Each cell In ThisWorkbook.Worksheets("Dados").Range("A" & firstLine & ":A" & lastLine)
'            If Not .exists(cell.Value) Then
                .AddItem cell.Value
'            End If
        Next cell
    End With

End Sub

Alguém por gentileza tem uma ideia de como não adicionar itens repetidos em um ComboBox?

[alexandrevba]

Boa tarde!!

Favor tirar um tempo e ler as regras do fórum!!
viewtopic.php?f=0&t=4

Favor indicar as postagens cruzadas!!!!!!!!!!!

Regra nº 11:
Nós preferimos que os membros não façam postagens cruzadas (quando a mesma postagem é feita em diferentes fóruns). Mas quando isso ocorrer, os membros devem deixar claro os links para as postagens cruzadas.

Respondido em:
http://www.planilhando.com.br/forum/vie ... 10&t=25746


Att