trocando de planilha

Question

Ola, tenho um arquivo com 10 planilhas e uma planilha chamada geral, criei uma macro que ao clicar num botão ela vai para a planilha geral até ai tudo ok. mas eu gostaria de criar uma macro que ao clicar em um botão volte para a planilha em que eu estava anteriormente. ou seja se estou na plan1 e cliquei no botão para ir para geral, na geral quero clicar num botão que me devolva diretamente para plan1. isso é possivel sem ter que criar um botão para cada planilha???

Answer 1

'Declara a variavel publica para armazenar a planilha anterior
Public sPlanAnterior As String
' Função para ir para alguma planilha
Sub Avancar()
    ' guarde o nome da planilha anterior
    sPlanAnterior = ActiveSheet.Name
    ' Selecione a planilha que vc deseja ir
    Sheets("Plan1").Select
End Sub
' Função para retornar a planilha anterior
Sub RetornaAnterior()
Dim sPlan As String
    ' Pega o nome da planilha para anterior
    sPlan = sPlanAnterior
    ' Pega um novo nome para a planilha anterior
    sPlanAnterior = ActiveSheet.Name
    ' Seleciona a planilha anterior
    Sheets(sPlan).Select

End Sub


Espero ue aude
se quiser guardar um histórico aconsenlho criar uma matriz

Se foi atendido responda como correta
Ok

---

Wesley

Answer 2

VALEU WESLEY MUITO OBRIGADO, ESTÁ FUNCIONANDO PERFEITAMENTE !!!


UM ABRAÇO.... E MUITO OBRIGADO