Dividir uma planilha em várias planilhas com VBA

[@yasmimvieira215]

Você salvou meu tempo, obrigada demais pelo conteúdo ❤

[@ediron1000]

a coisa mais valiosa que temos é nosso conhecimento, é a única riqueza que e verdadeiramente nossa aqui na terra. Obrigado por compartilhar seu conhecimento conosco, me ajudou muito meu amigo!

[@sebastiaolmfernandez6920]

Meu amigo, você salvou o dia. Explicou de forma clara e simples cada passo. Muuuitoooo obrigado!

[@anamarosoalves51]

Obrigada pela aula! Segui os passos e deu certo!

[@douglascnt]

Parabéns, rápido, sucinto e funcional, foi direto ao ponto e salvou o meu dia !

[@tatorres87]

Esse vídeo salvou meu dia, muito obrigado por compartilhar seu conhecimento.

[@FelipeTorres-ui1jx]

Muito obrigado !! Voce reduziu um trabalho de uma semana em alguns minutos, muito grato pela aula!

[@rosivaldovanderlei9624]

Excelente, explicação bem simples e muito objetiva, para um leigo como eu. Feliz por ter conseguido aqui, muito obrigado

[@hugo_om]

Fiz por abas e parece que deu bem certo também. Muito obrigado, salvou meu dia!

[@fabienidesouza9533]

Tenho vontade de curtir esse vídeo mil vezes!!

[@Danicont1]

Nossa você salvou horaassss do meu trabalho, super obrigada!!!!

[@nalandarocha6080]

Deu super certo aqui, obrigadaaa! Super intuitivo!

[@samuelpaes2]

Muito Obrigado!!!!!! Muito boa aula, me ajudará bastante!

[@pescadedados7323]

Que ótimo!

[@wilksb]

Meu amigo, tu me salvooou! Obg pelo tutorial!!!

[@GrazielleFatimaLima_gbaixinha]

Salvou meu dia, muito obrigada

[@eupensoeusou]

Muito obrigada por este vídeo 🥰

[@phonecation007]

Muito obrigado, salvou minha vida na empresa nova q entrei!!! Só nao achei o video que vc comentou que ensinaria a enviar por e-mail

[@pescadedados7323]

Fala Daniel, quem bom que ajudou....estou sem acesso ao outlook no momento. Não sei se você já conseguiu, em todo caso vou enviar abaixo o código que você pode utilizar adaptando algumas pequenas coisas.....só colocar isso em cima do LOOP Private Sub enviar() ' caso esse codigo seja usado dentro de outro codigo não precisa colocar isso. Set obj_otk = CreateObject("outlook.application") ' padrão para criar a variavel Set Email = obj_otk.createitem(0) 'padrão para setar a variavel Email.display 'apenas para mostrar o que esta acontecendo Email.to = Sheets("email").Cells(lin_local, 1).Value 'local onde esta a lista de email. Email.Subject = "Relatório" 'assunto to email Email.body = "Segue em anexo relatório" 'o que você deseja escrever no email Email.attachments.Add ("aqui coloca o mesmo caminho da planilha, tudo que fica entre as aspas") 'aqui pode copiar o caminho de outro local Email.send 'para enviar End Sub caso não consiga adaptar me avise....abs.

[@davidfvb]

@@pescadedados7323 bom dia Antes de mais muitos parabéns e muito obrigado pelo vídeo. São de facto estes posts que tornam o KZbin muito mais útil . Tentei executar este código para conseguir enviar por e-mail mas não estou a conseguir Colei o código antes do loop e coloquei no meu ficheiro principal uma nova planilha: "email" com nome na coluna1 e email na coluna Será que não estou a definir onde o e-mail vai buscar o anexo? Obrigado desde já pela sua ajuda. Cumprimentos desde Portugal !!!

[@michelesoaresmatos8731]

Genial. Como não sabia disso?! Obrigada, salvou minha vida kkk

[@DanielAlves-si7zj]

Só dei um like pq não posso dar 2 kkk Parabéns, muito bom!

[@hannaalves4428]

Salvou demais, muito obrigada!

[@alex.9808]

Caraca bicho, sensacional! Muito obrigado

[@nataliaanjos3776]

Me ajudou bastante. Muito bom!

[@eliascrispiniano1037]

Nossa, manda o pix que pago a aula, muito boa 👋👋

[@isaias9188]

Tinha que dar meu salario a ti kkkkkk Salvou geral o meu trabalho

[@iranybatista8845]

Suas aulas são ótimas. Muito bem explicada. Não vai postar mais?

[@almeidadones3165]

Obrigado Professor😎

[@felipeemidio5572]

Obrigado! Excelente.

[@edenilsonoliveira5575]

Obrigado por compartilhar o conhecimento. Como fazer para alterar o codigo salvando em CSV.

[@lucasmoura3546]

Parabéns pelo conteudo! Muito bom! Gostaria de aproveitar e tirar uma duvida. Estou tentando dividir uma planilha com diversos clientes, no entanto preciso manter uma das planilhas com os calculos. Consegue ter uma ideia de como posso fazer isso?

[@lourenalopesnutricao]

Você pode fazer por acesso remoto? Quanto seria?

[@jemimadara4260]

Se fosse para separar por datas ? Processos por mês, onde eu tenho que separar tudo que é de janeiro, fevereiro e etc... Como seria?

[@taischaves4826]

8:07 o meu módulo 2 não saiu como o seu, o que fiz de errado? Apareceu apenas RANGE("B15").SELECT

[@pilotogo09]

Show, a minha só deu o erro de não copiar e colar os dados, abre a planilha em branco

[@danielaquilis5356]

Boa tarde! É possível fazer com que este processo se torne um suplemento? Outra coisa, é possível utilizar esta lógica para criar no CALC do Libre Office? Tive que mudar de computador e o mesmo só tem Libre Office. 😓

[@jeffersonrhoads]

Boa noite. Eu tenho uma lista com mais de 100.000 dados em um arquivo do Excel. Gostaria de criar vários arquivos nomeados automaticamente através de macro. Cada um com 80 linhas da lista do arquivo original.

[@fernandamenezesgodoi667]

E se depois eu precisar voltar todos os arquivos em uma base só? É possível?

[@lucasbazanella9766]

opa, uma duvida!!!! Como eu faria se eu precisasse separar os arquivos, em unica coluna por quantidades de linhas, por exemplo meu arquivo tem 400.000 linhas e gostaria de separar de 50.000 em 50.000...

[@SaasEmpresas.cleoferraes]

Ola, preciso separar contatos de telefone. minha lista tem 1000 contatos . Preciso de varias lista de 100 em 100 .você tem um video algum explicando?

[@rico200908]

Primeiramente, parabéns pela explicação! foi justamente o que eu precisava e bem explicado! Ganhou meu like e meu inscrito! Porém, se puder me ajudar, agora estou com uma necessidade de além de gerar os arquivos divididos eu preciso que cada arquivo seja criado em uma pasta diferente. Tentei ajustar o código mas sem sucesso... Saberia me ajudar?

[@jeffersonrhoads]

Boa, em uma planilha com mais de ,100.000 linhas preenchidas, queria criar uma macro para dividir esse arquivo em vários com 80 linhas cada. Como fazer?

[@joaocruz2082]

Oi bom dia , muito obrigado pelo vídeo , gostei bastante. PF. Como eu faria para dividir a planilha em quantidade de linhas sem um critério específico. Por exemplo arquivo 1 Com linhas de 1-500, 501-1000 , etc . Obrigado ☺️

[@pescadedados7323]

opa, que bom que ajudou....veja o código a baixo para salvar por blocos de 500 é um pouco diferente. Sub salvar_500() i = 2 'inicio da linha dois f = 501 'indo até o registro 500 Do Until Cells(i, 1).Value = "" 'vai fazer até a hora que acabarem os registos da primeira coluna Range("a1:b1," & "A" & i & ":" & "b" & f).Select 'copia sempre o titulo, e seleciona os dados com 500 registros a mais considerando apenas duas colunas, se quiser é só mudar o B para o número de colunas da sua planilha Selection.Copy 'copia os dados selecionados Workbooks.Add 'cria um arquivo novo Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' cola especial Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:="C:\Users\fabio\Documents\" & "de " & (i - 1) & " até " & (f - 1) & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'salva o arquivo no diretório desejado, é só mudar oque esta entre as aspas duplas "C:\Users\fabio\Documents\" ActiveWindow.Close Range("A1").Select i = i + 500 f = f + 500 Loop MsgBox "acabou" End Sub

[@joaocruz2082]

@@pescadedados7323 nossa muito obrigado mesmo . Deus abençoe 🙏 sua família

[@priscilamorais9103]

@@pescadedados7323 Oi tudo bem.. estou utilizando esse código, mas ele copiar a primeira linha, abre um outro arquivo e cola essa primeira linha.. mas ele nao copia as linhas 2 ate 500 e salva.. ele salva o arquivo vazio e faz isso ate acabar... como consigo resolver? E parabéns pelo ótimo código!

[@angeloagostinelli7771]

Legal!!! Mas ainda precisa editar o vídeo final. Se precisar de alguma ajuda, me chama.

[@flepper120]

Você faz esse tipo de trabalho?

[@angeloagostinelli7771]

@@flepper120 Trabalho com edições de vídeos para KZbin a mais de 5 anos.

[@pescadedados7323]

valeu

[@pescadedados7323]

combinado, obrigado

[@gabrielabottini1904]

Muito bom o vídeo!!! Preciso de ajuda pra fazer esse procedimento em uma tabela bem maior, segui seus passos mas acho que tem algo errado com o meu código! Poderia me ajudar, por favor ?!

[@gabrielabottini1904]

@Pesca de Dados

[@pescadedados7323]

Gabriela, que bom que gostou do vídeo....seu código parou no meio, o que exatamente houve?

[@giovanigaio2405]

Melhor que isso só se tivesse deixado o código fixado.

[@arthurcerqueira6694]

o meu funcionou grande parte, mas do nada ele para dizendo que não pode mais acesar a pasta aonde eu mandei salvar, alguém me ajudar???