Bom dia!Mikel Silveira Fraga escreveu:FDWX, boa tarde.
Abri seu modelo agora e segue as orientações para que você possa organizar a planilha.
Antes de iniciarmos, é preciso inserir em um módulo, a função que realiza a verificação da existência de duplicidade do ComboBox. Segue abaixo o código, sendo este o mesmo do exemplo postado anteriormente:Para o preenchimento do ComboBox com os Fornecedores, por exemplo, você esta utilizando o comando abaixo:Código: Selecionar todos
Public Function VerificaDuplicidade(ByRef ctrlList As MSForms.Control, _ ByVal strValor As String) As Boolean Dim intList As Integer VerificaDuplicidade = False With ctrlList For intList = 0 To .ListCount - 1 If VBA.LCase(VBA.Trim(.List(intList, 0))) = _ VBA.LCase(VBA.Trim(strValor)) Then VerificaDuplicidade = True Exit Function End If Next intList End With End Function
Para conseguir utilizar a função, será necessário inserir um bloco IF, antes da linha de comando ComboBox10.AddItem, conforme abaixo:Código: Selecionar todos
Sheets("Forn").Visible = True Sheets("Forn").Select Range("a2").Select Do Until ActiveCell.Value = "" If ActiveCell.Value <> "" And ActiveCell.Value <> "xxx" Then ComboBox10.AddItem (ActiveCell.Value) End If ActiveCell.Offset(1, 0).Select Loop
Dessa forma, antes da inclusão de um novo valor no ComboBox, será feita uma checagem se já existe o mesmo valor em outra linha da lista. Caso exista, não será feita a inclusão da informação.Código: Selecionar todos
Sheets("Forn").Visible = True Sheets("Forn").Select Range("a2").Select Do Until ActiveCell.Value = "" If ActiveCell.Value <> "" And ActiveCell.Value <> "xxx" Then If Not VerificaDuplicidade(Me.ComboBox10, ActiveCell.Value) Then 'Iniciamos um novo bloco IF, que testa a função VerificaDuplicidade. ComboBox10.AddItem (ActiveCell.Value) End If ' Aqui estamos encerrando esse novo bloco IF. End If ActiveCell.Offset(1, 0).Select Loop
Teste e nos retorne com o resultado.
Abraços.
eu coloquei esse código em todos os combobox change, mas parece que no caso da combobox 12 e da combobox13 ainda está carregando dados em duplicidade. Lhe enviei novamente o arquivo por e-mail. Poderia verificar?