Jump to content

Ganhe $$$ escrevendo tutoriais para nós!


Foto

Retornar a plan anterior

Planilha




  • Faça login para responder
5 respostas neste tópico

#1 Salvir

Salvir
  • Participante
  • 11 mensagens

Publicado 06 July 2012 - 12:00 AM

Olá,
Tem como através de VBA, ao clicar em um botão de macro retornar para a planilha que estava antes?

Att
Salvir




#2 marcelokai

marcelokai
  • Participante
  • 483 mensagens

Publicado 06 July 2012 - 02:38 AM

Boa noite!

insira um modulo no projeto vba e coloque este código dentro:


Sub voltar ()
Sheets("nome planilha").Select
End Sub

adapte um botão qualquer para chamar a macro..

Boa sorte!!
O truque da filosofia é começar por algo tão simples que ninguém ache digno de nota e terminar por algo tão complexo que ninguém entenda.
https://www.facebook...o.goncalves.756

#3 felipebenza

felipebenza
  • Participante
  • 61 mensagens

Publicado 06 July 2012 - 09:17 AM

Tem que ser, necessariamente, a Planilha que estava antes ou pode ser forçar a ir à uma Planilha específica, como no código abaixo?
thisworkbook.sheets("Plan1").select
thisworkbook.sheets("Plan1").activate

Editado por felipebenza, 06 July 2012 - 09:18 AM.
''


#4 Salvir

Salvir
  • Participante
  • 11 mensagens

Publicado 06 July 2012 - 12:18 PM

Olá,
Tem que ser a planilha que estava antes.
Por exemplo: estava na plan1 e fui para a planX ou estava na plan2 e fui para a planX. Na planX teria um botão retornar, que voltaria ora para a plan1 ora para a plan2.

#5 felipebenza

felipebenza
  • Participante
  • 61 mensagens

Publicado 06 July 2012 - 02:33 PM

Sub Exemplo()

    Dim vInicial

    Set vInicial = Selection

   

    '...código de sua macro aqui...

   

    Application.Goto vInicial

End Sub

#6 osvaldomp

osvaldomp
  • Participante
  • 380 mensagens

Publicado 07 July 2012 - 09:51 PM

@Salvir

Instale os códigos abaixo no módulo de 'EstaPasta_de_trabalho', assim:

1. copie os códigos daqui
2. no Excel tecle Alt+F11 para abrir o editor de VBA
3. duplo clique em 'EstaPasta_de_trabalho' e cole os códigos na janela em branco que se abrirá
4. feito! Alt+Q para retornar para a planilha
5. insira um botão na planilha e associe-o à macro 'Retorna', em seguida poderá clicar com o direito sobre o botão, copiá-lo, e colar nas planilhas de interesse do arquivo

Public PlanAnt As String

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

Sub Retorna()
Sheets(PlanAnt).Activate
End Sub
Osvaldo






Tópicos Relacionados Collapse


Tópicos com palavra-chave: Planilha





Ganhe $$$ escrevendo tutoriais para nós!