ITENS ESTAO REPETINDO EM COMBOBOX
Preciso fazer com que um combobox que está inserido em uma planilha me mostre todas as siglas dos estados brasileiros, só que depois que coloquei o código, na hora de usar percebi que os dados estão repetindo muito, aparecem tipo tudo duplicado. Sem contar que assim que eu abro a planilha enquanto não aperto F5 eles não me listam o que eu quero. Mas isso eu acho que é por causa do evento que devo estar colocando errado. Segue código que estou usando abaixo, para que alguém possa ter idéia de me dar um help. Um abraço!!!
Private Sub ComboBox2_Change()
ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE
ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
Private Sub ComboBox2_Change()
ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE
ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
não sei se vai dar certo mais tenta por isso no formload ou no evento click. não sei mais tenta ai. eu puxo do bd isso. mas tenta
JAMESBOND007,
Este combo, está inserido em um planilha. Eu to enganado ou tá faltando parte do seu último comentário? ..rs...Um abraço!!!
Este combo, está inserido em um planilha. Eu to enganado ou tá faltando parte do seu último comentário? ..rs...Um abraço!!!
Isso está acontecendo pq toda vez que clica na combo voce adiciona novamente todos os itens.
Seria interessante se voce quiser manter este padrão, toda vez que clicar na combo voce limpar todos os campos.
Ou utilizar o que disse o james bond, colocar no load, que só irá adicionar uma vez
flws
Seria interessante se voce quiser manter este padrão, toda vez que clicar na combo voce limpar todos os campos.
Ou utilizar o que disse o james bond, colocar no load, que só irá adicionar uma vez
flws
Load é um evento? Porque não tem este evento para comobox inseri em um planilha.
Boa tarde,
Está ocorrendo pois vc não limpa a caixinha e preenche ela de novo, então tem duas opções ou como o James falou ou vc coloca a linha em azul para limpar o combo antes de preencher.
Private Sub ComboBox2_Change()
[txt-size=1][txt-color=#0000f0]combobox2.clear[/txt-color]ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE[/txt-size]ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
Está ocorrendo pois vc não limpa a caixinha e preenche ela de novo, então tem duas opções ou como o James falou ou vc coloca a linha em azul para limpar o combo antes de preencher.
Private Sub ComboBox2_Change()
[txt-size=1][txt-color=#0000f0]combobox2.clear[/txt-color]ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE[/txt-size]ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
eu coloco no form, mas aqui na duplica os dados tenta isso ai pra ver
Private Sub Form_Load()
Combobox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
Combobox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
Combobox2.AddItem [Ô]PR[Ô] [ô]PARÃ
Combobox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
Combobox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
Combobox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
Combobox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
Combobox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
Combobox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
Combobox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
Combobox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
Combobox2.AddItem [Ô]BA[Ô] [ô]BAHIA
Combobox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
Combobox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
Combobox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
Combobox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
Combobox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
Combobox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
Combobox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
Combobox2.AddItem [Ô]GO[Ô] [ô]GOIAS
Combobox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
Combobox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
Combobox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
Combobox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
Combobox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
Combobox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
Acredito que isso resolva... Limpe a ComboBox antes de preenche-lá.
Private Sub ComboBox2_Change()
ComboBox2.Clear
ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE
ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
Private Sub ComboBox2_Change()
ComboBox2.Clear
ComboBox2.AddItem [Ô]AC[Ô] [ô]ACRE
ComboBox2.AddItem [Ô]AP[Ô] [ô]AMAPÃ
ComboBox2.AddItem [Ô]AM[Ô] [ô]AMAZONAS
ComboBox2.AddItem [Ô]PR[Ô] [ô]PARÃ
ComboBox2.AddItem [Ô]MA[Ô] [ô]MARANHÃO
ComboBox2.AddItem [Ô]PI[Ô] [ô]PIAUÃ
ComboBox2.AddItem [Ô]CE[Ô] [ô]CEARÃ
ComboBox2.AddItem [Ô]RN[Ô] [ô]RIO GRANDE DO NORTE
ComboBox2.AddItem [Ô]PB[Ô] [ô]PARAÃBA
ComboBox2.AddItem [Ô]PE[Ô] [ô]PERNAMBUCO
ComboBox2.AddItem [Ô]AL[Ô] [ô]ALAGOAS
ComboBox2.AddItem [Ô]SE[Ô] [ô]SERGIPE
ComboBox2.AddItem [Ô]BA[Ô] [ô]BAHIA
ComboBox2.AddItem [Ô]ES[Ô] [ô]ESPÃRITO SANTO
ComboBox2.AddItem [Ô]RJ[Ô] [ô]RIO DE JANEIRO
ComboBox2.AddItem [Ô]SP[Ô] [ô]SÃO PAULO
ComboBox2.AddItem [Ô]PA[Ô] [ô]PARANÃ
ComboBox2.AddItem [Ô]SC[Ô] [ô]SANTA CATARINA
ComboBox2.AddItem [Ô]RS[Ô] [ô]RIO GRANDE DO SUL
ComboBox2.AddItem [Ô]MG[Ô] [ô]MINAS GERAIS
ComboBox2.AddItem [Ô]GO[Ô] [ô]GOIAS
ComboBox2.AddItem [Ô]MT[Ô] [ô]MATO GROSSO
ComboBox2.AddItem [Ô]MS[Ô] [ô]MATO GROSSO DO SUL
ComboBox2.AddItem [Ô]RD[Ô] [ô]RONDÔNIA
ComboBox2.AddItem [Ô]RM[Ô] [ô]RORAIMA
ComboBox2.AddItem [Ô]TO[Ô] [ô]TOCANTINS
ComboBox2.AddItem [Ô]DF[Ô] [ô]BRASÃLIA
End Sub
O código clear deu certo mesmo. Mas toda vez que abro a planilha o combo não funciona, aà eu tenho que apertar F5 pra ele funcionar. Isso é erro de evento não é? Que evento devo usar?
poem no formload ou no evento click tenta fazer isso
Tentei no evento click e não deu certo continuar do mesmo jeito. E o problema de antes está persistindo e eu disse que tinha resolvido. Realmente não está mais duplicando os dados, mas quando clico nos items o combo não aceita e fica em branco.
Tópico encerrado , respostas não são mais permitidas