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

MACRO EXECUTA AUTOMÁTICO QUANDO CÉLULA A1 E ALTERADA

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
505 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal estou precisando da ajuda de vocês, tenho vários dados em várias planilhas de outros arquivos e nas abas do mesmo arquivo que farão alguns cálculos e resultado deste cálculos ficará na célula A1 como exemplo. Gostaria que uma macro execute automaticamente quando o valor da célula A1 e alterada, sem que eu tenha que clicar em outra célula ou mudar de aba. Por exemplo se A1 alterar quero que aparece a mensagem na célula B1 "A MACRO FUNCIONOU!", funcionando da forma que eu quero eu faço adaptação da minha macro.

silva_jmp

Planilhando 14.06.15.xlsx
 
Postado : 14/06/2015 3:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite

Baixe a planilha e veja se é isto que desejas:

14_06_15_MsgBox_Patropi.zip

Não se esqueça de clicar na mãozinha.

Dê retorno.

[]s

 
Postado : 14/06/2015 5:12 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Patropi obrigado por me atender, e isso mesmo, adaptei para que parece-se a mensagem na célula B1, ficou assim:

Private Sub Worksheet_Calculate()
Plan1.Activate
Plan1.Range("B1").Select
ActiveCell.FormulaR1C1 = "A MACRO FUNCIONOU" 'Assim ou a linha debaixo
 'MsgBox "A Macro Funcionou"
End Sub

Valeu!!

silvajmp

 
Postado : 14/06/2015 7:47 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico