A intenção é que ao clicar na guia Sintese Euro, a macro imputasse na célula D1 da guia Síntese Local o caracter "L" e depois retornasse para a guia Síntese Euro. Eu consegui resolver o problema do erro imputando a macro no módulo. Dessa forma apenas inseri um comando na página Sintese Euro para chamar a macro:
Então na página Síntese Euro eu inseri o código:
Private Sub Worksheet_Activate()
Call Module1.Macro1
End Sub
No Módulo inseri o código da macro
Sub Macro1()
Sheets("SINTESE_LOCAL").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "L"
Sheets("SINTESE_EURO").Select
End Sub
O problema é que como utilizei o comando Private Sub Worksheet_Activate()
, ele entende que todas as formas de acessar a guia podem acionar a macro, e como coloquei o comando Sheets("SINTESE_EURO").Select
, na Macro ele acaba entrando em looping.
Existe alguma função que ative somente quando clico na guia e não em todas formas de acessá-la como é o caso da Private Sub Worksheet_Activate()
?
E essa é a linha do erro:
Range("D1").Select
Obrigada, gente.
Private Sub Worksheet_Activate()
? Num módulo? Poderia inserir um print da Árvore do Projeto VBA.