Excel Planilha apresenta erro e renomeia a aba

[Jmbs]

Amigos, tudo bem?

 

Estou com uma planilha de controle de faturamento e nela tenho uma aba que, através do filtro, gera um relatório. Entretanto, começou a  renomeia o número da planilha que recebe o relatório, conforme o print. Vocês poderia me ajudar, por favor?

 

Por ora, a solução que encontrei foi ir no modulo e substitui o numero da aba relatório.

 

 

Obrigado

 

 

 

[OreiaG]

Para facilitar, anexe no fórum o seu arquivo Excel com a macro (é preciso comprimir o arquivo com macro para poder anexá-lo.

 

Informe o resultado que você está obtendo ao executar a macro e informe qual é o resultado desejado. Forneça exemplos,

[Jmbs]

@OreiaG

 

Olá,

 

Segue conforme solicitado!

 

Planilha_Desembolso.7z

[OreiaG]

1 hora atrás, OreiaG disse:

Para facilitar, anexe no fórum o seu arquivo Excel com a macro (é preciso comprimir o arquivo com macro para poder anexá-lo.

 

Informe o resultado que você está obtendo ao executar a macro e informe qual é o resultado desejado. Forneça exemplos,

 

[Jmbs]

 

Prezados,

 

Tenho esta planilha de controle conforme anexo. Entretanto surgiu o erro de compilação, porque não sei de que forma esta automaticamente renomeando a aba Relatório que ira receber os dados do filtro..

 

Com a planilha aberta na aba FatDireto ao clicar no botão menu abre um formulário com vários botões. Quando dou um click no botão Pagtº Por Prestador, Erro de compilação - Método ou membro de dados não encontrado. Porque a aba relatório que vai receber o filtro esta renomeando(não sei de que forma) o que sei é ela é a planilha 5 e com assas renomeações já esta em 5111. Para eu conseguir o filtro tenho que ir na macro e substituir a referencia da aba...

Planilha_Desembolso.7z

[OreiaG]

Em  todo o Projeto VBA fiz a substituição de Planilha5xxx por Sheets("Relatorio") e o erro não ocorre.

 

Veja se funciona aí.

 

1. abra o editor de VBA

2. aperte Ctrl+l para abrir a caixa Localizar/Substituir

3. no campo Localizar coloque Planilha5111

4. no campo Substituir coloque Sheets("Relatorio")

5. marque Projeto atual

6. clique em Substituir todas

 

Repita a sequência acima duas vezes mudando somente para Planilha511 e por último para Planilha51

 

Em seguida faça os testes.

[Jmbs]

Bom dia!

 

Fiz conforme orientado, testei e funcionou! Só me restou uma dúvida: para efeito de visualização e para não causar equívocos, tem como excluir essas repetições 51,511 e 5111, conforme o print?

 

 

 

 

[OreiaG]

A solução é criar um novo arquivo formado somente com cópias das Planilhas, dos Módulos e dos Formulários de interesse que estão no arquivo atual e em seguida Salvar Como esse novo arquivo com o nome do atual.

 

Para copiar/colar Módulos e Formulários de forma fácil: primeiro abra um novo arquivo, em seguida acesse o Editor de VBA e arraste individualmente cada Módulo e cada Formulário do arquivo atual para o novo.

 

E para fazer cópias das Planilhas clique com o direito na Guia de cada Planilha / Mover ou Copiar / selecione o nome da nova pasta / Criar uma cópia / OK