Retornar à última aba ativa (agora oculta)

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Retornar à última aba ativa (agora oculta)

Mensagempor topscore » Sáb Nov 23, 2019 1:14 am

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.
topscore
Membro
Membro
 
Mensagens: 29
Registrado em: Sex Abr 10, 2015 9:12 pm
Has thanked: 4 times
Have thanks: 6 times

{ SO_SELECT }

Re: Retornar à última aba ativa (agora oculta)

Mensagempor ewshaka » Seg Dez 02, 2019 9:13 pm

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.
ewshaka
Membro
Membro
 
Mensagens: 2
Registrado em: Seg Nov 11, 2019 11:30 am
Has thanked: 0 time
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 9 visitantes