Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Combobox com dados duplicados

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Edilson Matos
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sex Abr 16, 2021 2:42 am

Combobox com dados duplicados

Mensagem por Edilson Matos »

Olá colegas,

Editei o código para que a Combobox2 carregasse as informações após preencher os dados da Combobox1, contudo ao carregar as informações no Combobox2 elas estão vindo duplicadas. Já realizei algumas pesquisas mas com o código que estou utilizando não encontrei nenhuma solução.

Segue o código.


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Application.ScreenUpdating = False

Sheets("Clientes").Activate
Range("B2").Select

ComboBox2.Clear

Do While ActiveCell <> ""

If ActiveCell.Offset(0, 21).Value = ComboBox1.Text Then

ComboBox2.AddItem ActiveCell.Text

End If

ActiveCell.Offset(1, 0).Activate


Loop

Sheets("Matriz").Activate

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adonias
Manda bem
Manda bem
Mensagens: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Combobox com dados duplicados

Mensagem por Adonias »

Edilson, disponibilize a planilha completa


Edilson Matos
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sex Abr 16, 2021 2:42 am

Re: Combobox com dados duplicados

Mensagem por Edilson Matos »

Adonias escreveu: Dom Abr 18, 2021 8:52 am Edilson, disponibilize a planilha completa


Olá meu nobre,

Segue planilha.

Se possível me dá um help com o filtro da listbox pois também estou com dificuldade.
Anexos
Desenvolvendo.rar
(29.54 KiB) Baixado 134 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder