Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ATIVAR MACRO SELECI...
 
Notifications
Clear all

ATIVAR MACRO SELECIONANDO UM ITEM DO DROPDOWN/COMBOBOX/LIST

 
2024 - VBA & Macros
Post Recente por JuanMAOG 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,775 Visualizações
RSS
 JuanMAOG
(@juanmaog)
Posts: 3
New Member
Topic starter
 

Olá, senhores(as).

Possuo uma certa limitação técnica, já adianto que não sei se utilizo macros/vba de forma correta, mas não é esse o ponto.

Meu problema:

O que eu consigo:
Consigo executar uma ação gravada através do macro, utilizando um botão para ativá-la.

O que eu não consigo:
Não consigo criar um dropbox/dropdown/combobox, onde eu clico no item específico desta lista, e aquele item ative um macro previamente gravado.

O que eu gostaria:
Gostaria que cada item da dropbox/dropdown/combobox seja linkado a uma macro específica.

O exemplo prático segue em anexo.

Desde já agradeço.

 
Postado : 03/02/2018 12:06 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Coloca no evento change da combobox.

E usa um select case pra executar cada macro

Select case combobox1

case is = macro1

 call macro1

case is = macro2

call macro2

end select

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/02/2018 12:21 pm
 JuanMAOG
(@juanmaog)
Posts: 3
New Member
Topic starter
 

Olá, MPrudencio, eu já tentei fazer mas não funcionou, pois como disse, possuo uma limitação técnica. se puder fazer no exemplo que eu deixei, agradeço. Porque eu funciono igual mecânico, replico o que vejo. Se eu ver o exemplo prático, conseguirei aplicar nas situações que eu necessito. Valeu.

 
Postado : 03/02/2018 12:36 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Preenchimento da ComboBox:

Private Sub Workbook_Open()
Plan1.ComboBox1.AddItem ("IPTU")
Plan1.ComboBox1.AddItem ("IPVA")
Plan1.ComboBox1.AddItem ("IRRF")
End Sub

Chamada das macros:

Private Sub ComboBox1_Change()

If Plan1.ComboBox1.Value = "IPTU" Then
Call IPTU
End If

If Plan1.ComboBox1.Value = "IPVA" Then
Call IPVA
End If

If Plan1.ComboBox1.Value = "IRRF" Then
Call IRRF
End If

End Sub

Segue anexo

 
Postado : 03/02/2018 12:44 pm
 JuanMAOG
(@juanmaog)
Posts: 3
New Member
Topic starter
 

klarc28

Não sei como agradecer, muito obrigado. Me ajudou e solucionou o problema.

 
Postado : 03/02/2018 1:20 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico