Como salvar planilhas (abas) SEPARADAMENTE - Com MACRO em VBA

[@andrepiero777]

Deu certo, excelente, obrigado! Prossiga com conteúdos úteis como esse!!

[@excelincompany]

Valeu @andrepiero777, bacana que você gostou. Abraços

[@reginaldovaztostes9511]

Muito boa dica Leandrão. Valeu. Se tiver oportunidade grava um vídeo sobre como criar 3 botões (Inserir, excluir linhas e imprimir relatório). Obrigado e abraço.

[@metroofficecorporate9876]

Luiz Fernando lhe deseja um grande abraço! Muito sucesso!! Ajudou muito!!

[@excelincompany]

Olá Luiz, que bom que ajudou. Abraços

[@yndiaraloosenimbu7341]

Muito bom e eficiente esse código. Parabéns e obrigada pela ajuda!

[@excelincompany]

Que bom que ajudou Yndiara. Forte abraço.

[@telmarodriguesdasilvaduart307]

resolvido , simples e direto obrigada

[@excelincompany]

Show Telma. Que bom que te ajudou. Abraços

[@joaofelipealmeida1402]

Boa tarde, muito bom. Uma dúvida, para começar a salvar a partir da segunda ou quarta aba em diante, que modificação devo fazer no código?

[@excelincompany]

Olá João, que bom que gostou do vídeo. Para definir a partir de qual planilha (ABA) você deseja começar a salvar, teria que mudar um pouco o código. A parte principal seria alterar o "For each" para um "For" normal, onde você definiria uma variavel "x" (por exemplo) e diria a partir de qual planilha deseja começar. Exemplo: "For x = 4 to ActiveWorkbook.Sheets.Count" Abraços

[@joaofelipealmeida1402]

Muito obrigado, abraços.

[@Eltevess]

E pra imprimir todas em um so documento? Quando tento fazer pra imprimir toda a pasta mesmo assim ele vai imprimindo e criando arquivos em PDF separadamente de cada aba.

[@excelincompany]

Olá Eltevess. Imprimir todas as abas em um só documento já é uma opção nativa do Excel. Basta ir nas opções de impressão e pedir para imprimir todas as planilhas em PDF. Abraços

[@MarceloSantos-e4f]

Parabéns pelo vídeo. Uma dúvida: no caso eu gostaria de salvar somente 1 pasta específica. Onde poderia informar isso no código?

[@excelincompany]

Olá @user-hv8bd8jp4v, obrigado pela parabenização. Se você deseja salvar somente uma planilha específica, recomendo que faça isso manualmente e não coloque um código para isso. Abraços

[@fventurelli81]

Boa tarde Leandro. Como faço para usar essa macro gerando pdf para cada planilha da pasta de trabalho EXCETO algumas planilhas? Tenho 20 planilhas numa pasta porem gostaria de gera o pdf apenas de 17 dessas planilhas

[@ruanvitor8949]

Cara , primeiramente parabéns pelo conteúdo , eu estava precisando de um script que ele salvasse cada aba em um arquivo , mas que fosse em txt , separado por ; , vc teria?

[@excelincompany]

Olá Ruan, que bom que tenha gostado. É possível sim, fazer um script , porém ele usaria de uma lógica um pouco diferente da função apresentada no vídeo. Caso tenha interesse podemos conversar para desenvolver este código. Abraços

[@RTGC23]

Boa tarde Leandro, tudo bem? Estou com dificuldade em executar esse código, ele só copia a primeira aba da planilha. Tentei rastrear o erro, mas sem sucesso. O que pode ser? Muito obrigado e parabéns pelo vídeo.

[@excelincompany]

Bom dia Roberto, tudo bem e vc? Talvez a sua planilha esteja com alguma ABA oculta, aí o código dá erro mesmo. Você pode "desOCULTAR" esta ABA ou se tiver várias pode acrescentar as seguintes 3 linhas de código: *Após a linha de código: Application.DisplayAlerts = False, digite: For Each xws In ActiveWorkbook.Worksheets xws.Visible = xlSheetVisible Next xws **observe bem a posição do código na macro. Tente essa solução. Forte abraço

[@RTGC23]

@@excelincompany Tudo bem também. Realmente fiz uma planilha do zero e funcionou perfeitamente, muito bom e eficiente esse código. Mas não sei o motivo que na minha planilha de trabalho não deu certo. Acabei incluindo uma verificação "If" e funcionou: Sub Separar_guias() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Select If Cells(1, 3) = 1 Then xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "Comissionamento" & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Muito obrigado. Abs

[@danilociardella598]

Montei o código porém deu erro de compilação: "Era esperado Function ou variável", alguma dica? Obrigado

[@excelincompany]

Bom dia Danilo. Verifique se não existem ABAS ocultas. Caso exista, é necessário "desoculta-las" antes de executar o código. Caso não funcione eu precisaria verificar o trecho do código com mais detalhes. Abraços

[@anacarolinasilva5380]

Como salvar para importar ?

[@edmondchampel8166]

Como fazer esse mesmo procedimento salvando em pdf?

[@excelincompany]

Olá Edmond. É, já me perguntaram isso antes...eheh. Coloquei mais um link para download de programação que estava pronto. O arquivo é o "AbasPDF.bas", basta baixar e fazer o mesmo procedimento de importar e executar. Caso tenha alguma dúvida, basta me escrever novamente que te ajudo. Abraços

[@vandojoe1888]

como faço para copiar somente uma aba especifica?

[@excelincompany]

Clique com o botão direito do mouse sobre o nome da planilha (Aba) e selecione, "Mover ou Copiar". Selecione em "Para pasta:" a opção (nova pasta), então selecione o selectbox "Criar uma cópia" e clique em OK. Abraços

[@peqiibr]

Tentei mas fica dando erro na linha: Application.ActiveWorkbook.SaveAs FileName:=xPath & "\" & xWs.Name & ".xlsx"

[@excelincompany]

Boa tarde @peqiibr. O erro poder ocorrer se você estiver usando uma planilha não salva, temporária ou em um sistema de compartilhamento de arquivos. A expressão xPath determina a pasta de origem. O que você pode fazer é substituir esta expressão por um endereço de pasta já pré definido. Abraços

[@peqiibr]

@@excelincompany substitui por Application.ActiveWorkbook.SaveAs Filename:=Dowloads & "-" & xWs.Name & ".xlsx" o erro não aparece mais, parece que ele roda a VBA, mas não acho os novos arquivos. Eu uso MacOs, será que isso impacta?

[@anacarolinasilva5380]

Não achei o link de como salvar pra importar

[@excelincompany]

Olá @@anacarolinasilva5380, o link para download está na descrição do vídeo. Mas vou te mandar aqui na resposta também. Abraços - drive.google.com/file/d/121ljH3lvpJtbxLj6GTxheXlmW1SI-0Q-/view?usp=sharing

[@pedrohenriquegracianodeass4555]

LINK DO DOWNLOAD NAAO FUNCIONA

[@excelincompany]

Boa tarde Pedro. Revisei o link lá meu jovem, favor tentar novamente. Caso ainda tenha problemas, favor me comunicar. Abraços

[@sidneypank9383]

Explicaçao ruim

[@excelincompany]

Olá Sidney, poxa uma pena que não tenha te ajudado. Eu agradeço o seu feedback, é muito importante para eu saber como posso tentar ajuda los melhor. Para mim as vezes parece ter ficado simples a explicação, porém pode ficar faltando algo. Poderia compartilhar comigo o que você acha que poderia ser melhorado? Vai me ajudar bastante. Abraços