Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Rodar macro (atravé...
 
Notifications
Clear all

Rodar macro (através de botão) dependendo do valor da célula

 
2024 - VBA & Macros
Post Recente por edilsonfl 9 anos atrás
3 Posts
3 Usuários
0 Reactions
880 Visualizações
RSS
 Glaudemir
(@glaudemir)
Posts: 42
Eminent Member
Topic starter
 

Olá, preciso de uma macro que ao ser acionada através de um botão verifique o conteúdo da célula E10. Essa célula tem uma fórmula que retorna uma das três opções: “A”, “B” ou “C”.

Se na célula tiver “A”, rode a macro1;
Se tiver “B”, rode a macro2;
E se tiver “C”, rode a macro3.

Não quero que rode a macro automaticamente cada vez que mude o valor da célula. Preciso que seja rodada somente quando eu apertar o botão.

Alguém pode me ajudar?

Obrigado.

 
Postado : 24/03/2016 2:07 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Cole esse codigo em um modulo e ajuste os nomes das macros

E so criar um botao e associar esta macro


Sub Ativar()

'Troque A1 pela celula que devera receber o valor A, B ou C
If Range("A1").Value = "A" Then
'Troque pelo nome da macro que deve rodar em caso da celula ter o valor A
Call Macro01
ElseIf Range("A1").Value = "B" Then
Call Macro02
Else
Call Macro03
End If

End Sub

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 : 24/03/2016 4:59 pm
edilsonfl
 edilsonfl
(@edilsonfl)
Posts: 227
Estimable Member
 

Minha sugestão:

Sub Ativar()
'As macros esperadas esperadas devem ser nomeadas como MacroA , MacroB e MacroC
'em Worksheets("Plan1"), substituia Plan1 pelo nome da planiha correto.

Application.Run "Macro" & Worksheets("Plan1").Range("E10").Value
End Sub

Quando ajuda for útil dê um clique na mãozinha, isso atribui ponto ao colaborador.

 
Postado : 25/03/2016 11:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico