Notifications
Clear all

Ativar uma Macro ao selecionar um ListBox

5 Posts
3 Usuários
0 Reactions
1,881 Visualizações
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Boa Tarde Senhores!

Estou precisando da seguinte função:
Tenho um ListBox com cerca de 5 ítens.
Preciso de um comando que ative uma Macro quando eu selecionar um determinado ítem dessa ListBox.

Alguém pode me ajudar?
Desde já agradeço amigos!

Forte abraço!
Wolney Pickler

"O impossível, é só uma questão de tempo"

 
Postado : 30/10/2012 9:54 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

wolneypk,

Boa Tarde!

Se etnedi corretamente sua necessidade, basta você inserir, no evento Click do seu ListBox, a linha de comando abaixo, supondo que seu ListBox chama-se ListBox1 e que a macro que você quer executar chama-se ExibeMensagem:

Private Sub ListBox1_Click()
    Call ExibeMensagem
End Sub


Sub ExibeMensagem()
    MsgBox "Deu Certo!"
End Sub

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 : 30/10/2012 12:33 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wolney, a dica do nosso colega Wagner Morel executa uma Macro independente do item que for selecionado, e como você citou :

Preciso de um comando que ative uma Macro quando eu selecionar um determinado ítem dessa ListBox

Preparei um exemplo onde temos 5 itens no Listbox e para cada item selecionado é executado uma referente a Seleção, se acrescentar mais itens temos de adicionar a rotina para este item e implementar no Case.
Deixei as mensagens com Botão para confirmar, mas foi só para exemplificar, pode eliminar estas mensagens.

Se a dica do Wagner já resolveu, de qualquer forma fica mais um exemplo.

Seleciona Item Listbox - Executa Macro

[]s

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

 
Postado : 01/11/2012 4:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Talvez um outro exemplo

Sub teste() 
    Dim i As Long 
    With UserForm1.ListBox1 
        For i = 0 To .ListCount - 1 
            .Selected(i) = True 
        Next 
    End With 
End Sub 

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

 
Postado : 01/11/2012 4:53 pm
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Perfeito amigos! Muito Obrigado!

"O impossível, é só uma questão de tempo"

 
Postado : 03/11/2012 9:48 am