combobox listando v...
 
Notifications
Clear all

combobox listando valores atualizados

4 Posts
2 Usuários
0 Reactions
870 Visualizações
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

bem, tenho um userform de controle com alguns combobox

usei o evento DropButtonClick para sempre manter os dados atualizados já que tem mudanças constantes na planilha.

sem o "Clear" dá para selecionar os valores listados mas repete todos os valores a cada click
com o "Clear" não dá para selecionar os valores

Private Sub De_1_DropButtonClick()
Limit
[b]If Ds = 2 Then De_1.Clear: Ds = 0 
cole = 0
Do Until Cells(SetPosL, SetPosC + cole) = "auxa"
            If Cells(SetPosL, SetPosC + cole) <> "" Then
                    De_1.AddItem Cells(SetPosL, SetPosC + cole).Value
          End If
        cole = cole + 1
    Loop
  Ds = Ds + 1
End Sub

assim funciona legal, mas como são varios combobox eu teria que ter uma variavel para cada um
Tem algum modo de manter a combobox atualizada constantemente a cada click no combobox ???

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 16/04/2014 11:24 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelo que entendi, em relação a Eventos, já tentou usar os Eventos Enter e Exit ?

Private Sub ComboBox1_Enter()

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/04/2014 8:57 pm
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Não atualiza em tempo real, pelo meno do jeito que tente, e tentei de muitas maneiras.
quando, altero os valores da planilha a combo-box não acompanha.
os valores só são alterados quando fecha e abre o userform
Não sei se estou fazendo certo....

Private Sub Para_2_enter()
Dim cole As Byte
cole = 0: Limit

Do Until Cells(SetPosL, SetPosC + cole) = "auxa" Or cole = 20
If Cells(SetPosL, SetPosC + cole) <> "" Then
Para_2.AddItem Cells(SetPosL, SetPosC + cole).Value
End If
cole = cole + 1
Loop
End Sub
Private Sub Para_2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Para_2.Clear
End Sub

é até um comportamento estranho,
pq com DropButtonClick sem Clear os valores se repetem a cada click
(entendo que a lista é adicionada de novos valores a cada click)

DropButtonClick com Clear os valores aparecem mas não dá para selecionar
( Se a limpeza é feita antes da lista ser carregada novamente pq não dá para selecionar?)

e com com Clear 1 vez sim e outra não fica normal atualizado e sem repetição
(pq quando acontece o Clear fica normal??, e quando não acontece não se repete???)

Desculpe ainda não sei das maneira possíveis de se fazer as coisas no vba, sei que tem coisa que tem lugar certo para colocar, estou colocado dentro da seção da userform em formulários.

A maneira que fiz dá certo, mas está ficando difícil controlar tantas variáveis publicas em que minhas macros se baseiam,
tive que deixar um modulo somente para as variáveis

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 17/04/2014 1:39 am
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

depois de uma luta aqui eu consegui

foi com o DropButtonClick mesmo

infelizmente não consegui usar os outros eventos, "nem para aprender"
o formulário não vai ser fechado e as combobox tem que acompanhar as mudanças na planilha

obrigado pela atenção e desculpe o ataque de ansiedade :( .

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 17/04/2014 3:57 am