Retornar à última a...
 
Notifications
Clear all

Retornar à última aba ativa (agora oculta)

2 Posts
2 Usuários
0 Reactions
1,502 Visualizações
(@topscore)
Posts: 41
Eminent Member
Topic starter
 

Pessoal, seguinte:

14 abas, Início + Cadastro + JAN a DEZ.

Do início o usuário escolhe o mês, MAI, por ex. Começa a preencher mas não consegue associar um novo funcionário, ainda não cadastrado.
Todos os meses têm um botão: "Cadastrar", que roda o código "Cadastrar1"

Esse código deveria reexibir e selecionar a aba "Cadastro" (Fácil) mas também ocultar o mês que o usuário estava. No caso, MAI. Se ele estiver em DEZ, o código reexibe e seleciona "Cadastro", depois oculta dezembro. Aqui já não consigo fazer, e não quero fazer um código para cada mês.

Mesma coisa para voltar ao mês. Na Aba "Cadastro", há um botão com o código "Voltar". Se o caminho foi:
"MAI" - Reexibe e seleciona Cadastro - Oculta "MAI"
Para voltar:
Reexibe e seleciona "MAI" (ou seja lá qual for o mês, última aba ativa antes de "Cadastro") e oculta Cadastro. Também não consigo fazer ele retornar para o mês de onde eu vim, seja lá qual for.

PS: Preciso sempre ocultar as abas de onde vim, pois nunca deixo o usuário usar duas abas abertas ao mesmo tempo, só fazem lambança.

Desde já, obrigado.

 
Postado : 22/11/2019 11:14 pm
(@ewshaka)
Posts: 3
New Member
 

Boa noite.
Em sua rotina, você pode declarar uma variável: Dim planAnterior as Worksheet.
Antes de ir para outra aba, você aponta ela como a anterior:
planAnterior = ActiveSheet.Name

E daí você trabalha com a opção de exibir ou ocultar, algo como
planAnterior.Visible = xlHidden

Caso tenha dificuldades em implantar a idéia, deixe um exemplo de sua planilha.

 
Postado : 02/12/2019 7:13 pm