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,781 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