Olá, Raisa.
Veja se algum dos códigos abaixo pode servir.
este é disparado ao aplicar duplo clique e ativa a planilha do mesmo arquivo, cujo nome esteja na célula em que for aplicado o duplo clique
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
Sheets(Target.Value).Activate
End Sub
este é disparado ao clicar com o direito na célula e ativa a planilha do mesmo arquivo, cujo nome esteja na célula em que for aplicado o clique
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
Sheets(Target.Value).Activate
End Sub
este é disparado ao selecionar (via mouse ou via teclado) a célula e ativa a planilha do mesmo arquivo, cujo nome esteja na célula selecionada
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Value).Activate
End Sub
Para testar instale os códigos no módulo da planilha de interesse.
Pode testar os 3 códigos separadamente ou em conjunto.
Se conveniente, você pode aproveitar um deles e substituir os comandos que ativam a outra planilha pelos comandos de fala que você já tem.
Postado : 23/06/2017 8:22 pm