Fóruns
Microsoft Excel - 2...
Formulários
Nome do combobox qu...
 
Notifications
Clear all

Nome do combobox que foi disparado

 
Formulários
Post Recente por Edcronos 10 anos atrás
4 Posts
3 Usuários
0 Reactions
815 Visualizações
RSS
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

ola

pesquisei em vários lugares e não achei,
teve até foruns que informou que combobox não tem uma propriedade Name

Mas como uso tradutores automáticos pra pesquisar, posso não ter sido feliz na interpretação

Eu faço o assim para preencher a Combobox ...

Private Sub Setor_Ori5_DropButtonClick()

    Call PreencheCombobox("Setor_Ori5", Plan_Ori5.Value)

End Sub

Private Sub Setor_Ori6_DropButtonClick()
    Call PreencheCombobox("Setor_Ori6", Plan_Ori6.Value)
End Sub

Estava penando em fazer mais ou menos assim...

Private Sub Setor_Ori7_DropButtonClick()

comb =Combobox.Name 
PlanN = "Plan_Ori" & Right(comb, 1)

    Call PreencheCombobox(comb, me.controls(PlanN).Value)
End Sub

assim poderia apenas colar o mesmo trecho em todos eles.

será que tem como ?

até

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 : 08/08/2014 5:16 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Edcronos,

Cara, tenta assim:

Private Sub Setor_Ori7_DropButtonClick()

comb = Me.ActiveControl.Name
PlanN = "Plan_Ori" & Right(comb, 1)

    Call PreencheCombobox(comb, Me.Controls(PlanN).Value)
End Sub

Qualquer coisa da o grito.
Abraço

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

 
Postado : 08/08/2014 6:58 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Edcronos,

Bom Dia!

Use o código abaixo para encontrar os Combos e saber o nome de cada um.
Dim Caixa As ComboBox
For Each Caixa In UserForm1.Controls
If Left(Caixa.Name, 5) = "Combo" Then
MsgBox Caixa.Name
End If
Next

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/08/2014 7:09 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Bernardo, deu certinho

Wagner Morel, obrigado pelo codigo, ainda não testei, mas tenho uma situação em que vai me servi.

só mais uma coisa...
Percebi que o pessoal usa UserForm_Activate e Click para popular os combobox,
Eu uso o DropButtonClick para fazer listagens instantâneas e achei infinitamente mais pratico

existe alguma diferença de performance ou inconveniência relacionada,
pq até agora não vi exemplos de códigos usando DropButtonClick para popular os combobox.

att

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 : 08/08/2014 7:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico