Combobox

[preda 0]

Como faço para saber se já existe um nome em uma combo box ?Tipo eu to preenchendo uma combo com uma coluna de uma planilha, só que os nomes repetem.Estou usando VBA.Vlw !

[Luizgrs 0]

Na hora de preencher a combo, você pode crir uma variavel string e guardar os nomes que você forem adicionados.Mas sempre antes de adicionar algum você faz uma busca nessa variável usando a função Instr.

[preda 0]

Bom, não tinha visto que alguem tinha respondido, mas vlw.

 

Se alguem tiver interesse, usei o seguinte codigo que desenvolvi:

Sheet1.cboins.Clear

 

For X = 0 To 200

Lista(X) = ""

Next

 

X = 2

While Sheets("Database").Range("j" & X).Value <> ""

P = 0

For Y = 2 To 200

If Lista(Y) = Sheets("Database").Range("j" & X).Value Then

P = P + 1

End If

Next

 

If P < 1 Then

Sheet1.cboins.AddItem Sheets("Database").Range("j" & X).Value

Lista(X) = Sheets("Database").Range("j" & X).Value

End If

 

X = X + 1

 

 

Wend

Sheet1.cboins.Clear

 

For X = 0 To 200

Lista(X) = ""

Next

 

X = 2

While Sheets("Database").Range("j" & X).Value <> ""

P = 0

For Y = 2 To 200

If Lista(Y) = Sheets("Database").Range("j" & X).Value Then

P = P + 1

End If

Next

 

If P < 1 Then

Sheet1.cboins.AddItem Sheets("Database").Range("j" & X).Value

Lista(X) = Sheets("Database").Range("j" & X).Value

End If

 

X = X + 1

 

 

Wend

[code=auto:0]

 

Vlw,