Como faço para criar um botão Voltar no Excel

Question

Eu preciso criar um botão de voltar no excel, que permite ao usuário voltar para a planilha visualizada anteriormente. Não tenho certeza de como fazer isso no VBA, qualquer pensamento seria apreciado.

Obrigado, Dave.

    

Answer 1

O seguinte é feito no Editor do Visual Basic (Alt + F11).

Em qualquer módulo padrão, no topo (abaixo de qualquer declaração de Opção que você possa ter) coloque isso ....

Código:

Public strLastSheet As String

em um módulo de planilha, copie o seguinte código:

Código:

Sub GotoLastSheet()
On Error Resume Next
ThisWorkbook.Sheets(strLastSheet).Activate
End Sub

Digite o seguinte código no módulo ThisWorkbook de sua pasta de trabalho.

Código:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
strLastSheet = Sh.Name
End Sub

Na guia do desenvolvedor, clique no botão Inserir (caixa em branco nos controles de formulário). Atribuir a macro: "… GotoLastSheet"

Você terminou. Renomeie o botão para "Voltar". Espero que isso ajude, Ted