Excel unificar varias planilhas em uma só

[Cristiane Suelen Santos]

@CasaDoHardware A macro funcionou perfeitamente :-) eu que tinha salvo as informações fora da pasta Dados, por isso não conseguia que funcionasse. Mas ontem mesmo testei e funcionou.

 

Agora o que eu não estou conseguindo é colocar a função sheets("Consolidado").range("A2:E" & rows.count).clearcontents 'Ajuste para o nome da sua planilha , no local certo. Pode me ajudar .

Só mais uma solicitação eu prometo  é possivel inserir na macro que ele traga as informações da planilha apenas das linhas/colunas preenchidas? Porque hoje ele me tras o intervalo das linhas mesmo que estejam em branco.

 

Desculpe tantas solicitações, eu tentei ontem mas não consegui fazer.

[CasaDoHardware]

Sua planilha tem formulas por isso esta copiando as linhas em "branco".

 

Esta parte você vai precisar ver um modo de nao ter essas linhas com formulas e que retornam o valor 0

 

 

Qto a limpar a planilha eu fiz confusão com outro codigo que estava escrevendo aqui,

 

Procure no codigo esta linha for each ..... escreva a linha que citei acima dela

 

Ficando como abaixo:

 

 

Sheets("Consolidado").Range("A2:E" & Rows.Count).ClearContents

For Each Planilha In FSO.GetFolder(Pasta).Files