Existe a possibilidade de ter toda a informação em uma só tabela?
Por exemplo juntar os dados do 1ºbimestre com os do 2º e por ai.
Tendo tudo em uma só tabela ficaria mais fácil para criar o filtro que deseja.

Vou ver o que consigo fazer e lhe respondo logo logo.

Boas tudo bem?
Seria possível deixar um exemplo do arquivo em questão, pois a execução de uma macro ficaria mais fácil.
Obrigado!

Ainda bem que conseguiu

Eu ja estava a semanas tentando recuperar o que me enviou, mas sem exito.

A ultima fórma seria mesmo a que utilizou e fico contente que tenha conseguido.

Tente fazer o seguinte. 1º - Abra o executar com a Tecla do windows + R 2º - Cole: %localappdata%\Microsoft\Power BI Desktop\TempSaves\ 3º - Aperte OK Veja se existe algum ficheiro com o mesmo nome do ficheiro corrompido. Caso exista ainda é possível recuperar parte desse ficheiro. Caso não exista, ...

Boas, tentei até hoje recuperar seu ficheiro, mas infelizmente sem sucesso. Tentei várias soluções como tentar abrir versões mais antigas, antes de estar corrompido, para tentar salvar algum trabalho, mas não me deixou. Depois tentei abrir o arquivo com o bloco de notas e copiar tudo para um novo fi...

Boas veja se isto lhe ajuda?

Olá, tudo bom.

Estou interessado em le ajudar, seria possível deixar um exemplo de seu ficheiro para poder ter uma ideia maior.

Obrigado!

Boas, qual seria a célula que teria que estar preenchida com "Vigente" ou "Ativo".

Obrigado.

Peço desculpa, erro meu

Aqui está o ficheiro:

Penso que não dê, mas tentei fazer com que quando se cria uma nova ela fique parecida com as outras.

Veja aqui:

Para não ter que formatar uma planilha sempre nova ?

Boas veja se é isso que pretende.

Ao adicionar nova planilha irá perguntar o nome que lhe quer dar e em seguida insere as fórmulas com o nome da nova planilha.

Boas.
Sem problema.
É assim que deseja?

Ficheiro:

Tente voltar a colocar as colunas na fonte (Arquivo do excel), e esperimente a atualizar outra vez.

Boas penso que têm que indicar o caminho todo do ficheiro.
Para isso abra as propriedades do ficheiro, vá na aba segurança e está lá o caminho inteiro logo na primeira linha.

Penso que assim resolva o seu problema, caso precise de mais ajuda é so avisar.

Boas veja se é isso que pretende.
Ficheiro em anexo.

Assim?

Boas tenta adicionar algo assim no inicio e no fim do código.

Sheets("Ent_Estoque").Visible = True
'Seu código
Sheets("Ent_Estoque").Visible = false

Boas, consegue anexar o ficheiro para o poder ajudar melhor?
Obrigado.