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

2024 - VBA & Macros

Post Recente por Fernando Fernandes 9 anos atrás

3 Posts

1 Usuários

0 Reactions

509 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

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

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

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

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

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

Postado : 14/06/2015 7:47 pm