Skip to main content
4 de 4
adicionou 735 caracteres ao conteúdo

Falha no método SELECT da classe RANGE

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 

inserir a descrição da imagem aqui

Obrigada, gente.