Como não incluir itens repetidos numa ComboBox
Enviado: 23 Ago 2017 às 11:24
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
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
Alguém por gentileza tem uma ideia de como não adicionar itens repetidos em um ComboBox?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