Skip to main content
Commonmark migration
Fonte Link

##Evento Worksheet_Activate

Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select dentro do evento.

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_LOCAL e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub

##Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select dentro do evento.

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_LOCAL e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub

Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select dentro do evento.

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_LOCAL e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub
adicionou 18 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

##Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select dentro do evento.

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_EUROSINTESE_LOCAL e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub

##Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_EURO e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub

##Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select dentro do evento.

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_LOCAL e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

##Evento Worksheet_Activate

Para utilizar este evento sem entrar em loop, você não pode utilizar o .Select

Na verdade, .Select/.Activate/.ActiveCell devem ser evitadas quase sempre (a não ser para ativar eventos ou outras ocasiões que é possível somente com Select).

Então você declara a planilha SINTESE_EURO e insere o valor na célula ou range da seguinte maneira.

Private Sub Worksheet_Activate()
    Dim SINTESE_LOCAL As Worksheet
    Set SINTESE_LOCAL = ThisWorkbook.Worksheets("SINTESE_LOCAL")
    SINTESE_LOCAL.Range("D1") = "L"
End Sub

Você ativa a Macro da seguinte maneira:

Sub Macro1()
    Sheets("SINTESE_LOCAL").Select
    Sheets("SINTESE_EURO").Select
End Sub