Juntar TODAS as ABAS de Planilha Excel em UMA ÚNICA GUIA via Macro VBA
HTML-код
- Опубликовано: 15 сен 2024
- Passo a passo para juntar os dados de todas as abas de uma planilha Excel em uma única Aba. Neste exemplo, foi agrupado os dados de todas as guias na aba dados consolidados da planilha Excel. Procedimento feito através de macro Excel VBA, atualizando automaticamente a consolidação de dados no momento que a aba á selecionada na Planilha.
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
www.planilhasc...
==========================================
Vídeo Excelente. Muito didático. Parabéns!!
Obrigado.
Que vídeo Top!
Obrigado.
Muito bom, precisava montar uma BD e usei sua lógica. Obrigado
Obrigado.
Parabéns! Aula bem explicada, sem enrolação. ❤
Obrigada pelo elogio
Sua didática é sensacional!
Obrigado pelo elogio
Show de bola, parabéns e obrigado por compartilhar o conhecimento
Obrigado.
Cara, Muito obrigado!!!!!! Com uns ajustes para se adequar à minha realidade, funcionou bonito!!!!! De verdade, obrigado!!!!!
Que bom que deu certo.
EXCELENTE! Me ajudou muito!!!
Que bom que ajudou
Consegui muito obrigado, ótima vídeo aula nível avançado.
Obrigado
GOSTARIA DE COMPRAR ESSE ARQUIVO !
Boa tarde, solicite o arquivo de exemplo no e-mail do site do canal, link na descrição do vídeo.
Show professor!!!😀
Obrigado
Ola amigo, muito bom o Video...porem no meu na planilha de dados consolidados ele sempre cola os dados em cima do outro.
vc poderia me ajudar...?
Bom dia, provavelmente seja falha na linha de código que identifica a próxima linha vazia.
Ótima dica Parabéns para no caso se fossemos trazer também no nome da aba em que está sendo copiado os dados como seria feito no seu código?
Bom dia, obrigado, o código para capturar o nome da aba é por exemplo, Planilha1.Name
@@CanalSGP mais em qual etapa do codigo insiro?
Por exemplo seria possivel trazer na aba consolidado na coluna de aba está sendo copiado esses dados?
Boa noite, após a linha de código que insere o array na planilha coloque o comando abaixo.
'após esta linha
Planilha3.Range("A" & Linha & ":" & "G" & Linha).Resize(TL - 1) = Arr
'Linha para colocar nome da aba na coluna H
Planilha3.Range("H" & Linha & ":" & "H" & Linha).Resize(TL - 1) = NomeGuia
@@CanalSGP Acabei de testar conforme voçê orientou e deu certo muito Obrigado!
Vou adaptar à minha planilha.
Super!!
Obrigado
Olá, fiz e funcionou muito bem....Parabéns!!! Só tenho um problema: quando abro outra planilha, a macro fica funcionando nas duas e isso eu não queria! Poderia
me ajudar?
Bom dia, obrigado, se a macro foi colocada em uma arquivo deveria funcionar apenas nele.
boa tarde! Precisava muito que incluisse a função soma de valores nessa macro. Na aba consolidação com a soma dos valores das outras planilhas. No meu caso seria na coluna G e H que tem valores.
Boa tarde, depende de onde quer colocar o resultado da soma. Por exemplo, na célula G1.
Planilha1.Range("G1").Value = WorksheetFunction.Sum(Planilha1.Range("G2:G1000000"))
@@CanalSGP boa noite! Então, eu preciso somar quatro tabelas, com dados de amostras de despesas, e compila-los na Planilha 5. Eu fiz a compilação usando seu modelo, e uma outra macro de soma, mas às vezes trava, e quando eu limpo os dados das 4 planilhas, a consolidação ainda fica, creio que seja por conta da função soma que coloquei que deve estar "segurando". Não tem como saber qual célula ficaria a soma, pois seria na última linha da Planilha 5 (consolidação). após todos os dados serem puxados. Se puder ajudar, agradeço muito. 🙏🙏
Bom dia, depois de consolidar os dados em uma aba acredito que seja o caso de colocar uma tabela dinâmica em outra aba, atrelada aos dados.
@@CanalSGP É que na verdade eu teria que montar num relatório só a consolidação e a soma. E esse relatório é que vai ser utilizado. Para a macro, eu usei essa macro aqui: Sub sub_Somar_total_coluna_G()
Dim vContador As Long
Dim vTotal As Currency
For vContador = 2 To Planilha5.Cells(Rows.Count, "G").End(xlUp).Row
vTotal = vTotal + Planilha5.Cells(vContador, "G")
Next vContador
[G65000].End(xlUp).Offset(2, 0).Value = vTotal
[G65000].End(xlUp).Offset(0, -1).Value = "Total...:"
End Sub
Será que dá para usar? Na verdade precisava incluir a coluna H também mas não consigo.
Parabéns, único vídeo que encontrei na WEB, sobre o Assunto, excelente.
Por favor, me tire uma dúvida
Como ficaria o código, se além da planilha 3, eu quisesse incluir mais tres sheets, para não serem processadas no código, por exemplo:
If NomeGuia Planilha1.Name Then
If NomeGuia Planilha3.Name Then
If NomeGuia Planilha5.Name Then
If NomeGuia Planilha12.Name Then
Até tentei arriscar desta forma, mas dá erro
Antecipadamente agradeço
Me desculpe, no próprio vídeo já está a solução
Mais uma vez obrigado
Bom dia, ok.
Olá..tudo bem ? Uma dúvida! Porque não é possível usar Contrl + Z em uma das abas ? Por exemplo...na plan de Jan...se eu excluir o 1º item por acidente, não consigo desfazer após clicar na aba "Dados Consolidados". Pode me explicar ?
Bom dia, provavelmente porque o código ocupou o espaço na memória do computador onde estava armazenado momentaneamente estes dados. Ao clicar a aba é executado o código e ele vai utilizar a memória do computador.
Eu consigo cadastrar macros diferentes entre as abas, na mesma planilha?
Boa tarde, não entendi exatamente sua dúvida, mas se for para fazer outras macros na planilha, pode ser feito sem problema. Desde que não de conflito com o evento desta macro.
Tem algum Gerador de Catálogo PDF pelo Excel???
Boa tarde, não tenho modelo neste sentido.
Por algum motivo, após criar o macro, ele consolida apenas determinado número de informações das minhas abas, não sei onde errei.
Boa tarde, pode ser que seja na variável que verifica quantas linhas tem registros na aba da planilha.
Fiz tudo certinho mas quando aperto f8 para rodar aparece uma mensagem de erro de copilação: "Next sem For" . Como corrigir?
Boa tarde, pela mensagem de ter algum erro de digitação. Solicite a planilha de exemplo nos contatos do site do canal, link na descrição do vídeo.
Preciso saber o numero de todas as abas, pois estou com quase 3000 abas, é possível programar para copiar só as linhas que tem conteúdo?
Bom dia, neste exemplo vai buscar os dados por intervalo, se tiver linhas vazias entre os dados, vai trazer também.
@@CanalSGP excelente, obrigado.
De nada