É possível chamar um Sub no evento change de um controle?

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

1,174 Visualizações

RSS

depoisteconto

(@depoisteconto)

Posts: 183

Estimable Member

Topic starter

Bom dia!

O exemplo é um combobox que no evento change chama um sub dentro de um módulo.

Dá erro, diz que esperava por variável ou procedimento, não módulo.

Minha intenção é chamar esse sub que está em um módulo. Nesse módulo tenho uma rotina de pesquisa que utiliza o texto escolhido no combobox como parâmetro.

Alguém sabe como posso fazer?

Obs: Antes essa rotina estava dentro do controle, mas acontece que ela serve para outras pesquisas dentro da aplicação, logo, quando eu tenho uma rotina que serve para mais de um controle, coloco em módulo e oriento o controle para chamar o módulo. Detalhe é que nos outros controle, uso outros eventos, click, doubleclick, ainda não tinha experimentado usar no change. Parece que não funfa né.

Postado : 18/08/2014 8:19 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!
Seria algo assim?

Private Sub ComboBox1_Change()
     
    Select Case ComboBox1.Value
    Case Is = "MeuValor1" 'Valor dentro da combobox
        Macro3
    Case Is = "MeuValor2" 'Valor dentro da combobox
        Macro6
    Case Is = "MeuValor3" 'Valor dentro da combobox
        Macro7
    End Select
     
End Sub
Sub Macro3()
    MsgBox "Macro3"
End Sub
Sub Macro6()
    MsgBox "Macro6"
End Sub
Sub Macro7()
    MsgBox "Macro7"
End Sub

Att

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

Postado : 18/08/2014 8:32 am