combobox texto some

Question

olá pessoal, estou prexisando da ajuda de vocês.
tenho uma caixa de combinaçõa, e quero que quando eu clicar em um item, aparecer este item na caixa de combinação. já que quando eu clico no item da caixa de combinaçõa, o munu drop down some e o texto da combobox some.

"
combobox1.clear
combobox1.additem "item1"
combobox1.additem "item2"

"

Answer 1

"
combobox1.clear
combobox1.additem "item1"
combobox1.additem "item2"

"

Este é o código que vc usa?

combobox1.clear limpa a caixa, esperimente retirar essa linha.

Ou explique melhor.

---

jose

Answer 2

olá, é o seguinte, é que eu coloco esse codigo, quando a pessoa clicar na flechinha da combobox, e se eu nao colocar o clear, toda vez que eu clicar na combobox, os itens serão adicionados(Repitindo os mesmos itens). então para que os itens nao se repitam eu coloco o clear. mas se há outra forma de fazer isso, fico muito agradecido se me ajudar...

Answer 3

Tiago,

Faça a inclusão dos itens do ComboBox no evento Initialize do seu formulário. Exemplo:

Option Explicit

Private Sub UserForm_Initialize()

    ComboBox1.AddItem "item1"
    ComboBox1.AddItem "item2"

End Sub

Além disso, se a sua lógica depende que os itens sejam adicionados quando o usuário realiza o clique no combo, você pode verificar quantos itens existem antes de adicionar. Exemplo:

If (ComboBox1.ListCount = 0) Then
    ComboBox1.AddItem "item1"
    ComboBox1.AddItem "item2"
End If

A primeira opção é melhor.

Att.

Ari C. Raimundo

Answer 4

obrigado mesmo \o/, eu estava fazendo daquela forma é pq eu nao sabia como fazer...

voces nao tem alguma apostila, tutorial na net pra me indicar, ja que voces devem estar me xingando já de tantas perguntas que eu faço ^^

Answer 5

olá, mas agora que voce me disse isso, percebi que isso nao pode ser feito se a combobox estiver na planilha, então eu iz assim, eu coloco o codigo e vcs digam se está certou ou nao e o que pode se melhorado

'quando a planilha1 for acionada, inserir o coódigo na combobox
então coloquei na workbook quando for aberta, ativar a planilha 1, para que a combobox tenha os campos inseridos.

Private Sub Workbook_Open()
Worksheets("Plan1").Select
End Sub

Private Sub Worksheet_Activate()
combobox1.AddItem "item 1"
combobox1.AddItem "item 2"
combobox1.AddItem "item 3"
End Sub

Answer 6

Tiago,

Particularmente acho melhor você colocar todo o código no evento Open. Se o usuário alternar planilhas novamente você terá o mesmo problema, a não ser que coloque o if antes de adicionar os items.

Att.

Ari C. Raimundo

Answer 7

Vlw ae cara muito obrigado ajudou muito ^^