Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

Juntar abas no excel

simara

Por simara
em Microsoft Office e similares

 Compartilhar

Posts recomendados

simara
 

simara

Postado
  • Autor
Postado

Então vou tentar ser mais clara...

Tenho algumas planilhas com diversas abas, e preciso juntar todas elas em uma só...

Tipo, pan1 + plan2 + plan3.... tenho que juntar todas elas numa plan4 - vamos dizer assim...

Já achei outro post sobre o assunto, mas não funcionou nas minhas planilhas, por isso anexei ela...

Será que fui mais clara?:unsure:

Link para o comentário
Compartilhar em outros sites
jeffsilveira
 

jeffsilveira

Postado
Postado

Simara, preciso tirar algumas dúvidas:

- Todas as abas de sua planilha possui um mesmo cabeçalho. Eles devem ser copiados? Ou somente da linha 7 para baixo?

- Ao final de cada aba há vários totais. Eles devem ser copiados? Ou você terá um só no final?

- As planilhas serão copiadas uma abaixo a outra, certo? Você quer que fique igual à aba geral?

- As abas de gráficos serão ignoradas.

Responda as questões acima para que eu possa ajudá-la da melhor forma possível.

No aguardo.

Link para o comentário
Compartilhar em outros sites
simara
 

simara

Postado
  • Autor
Postado
Simara, preciso tirar algumas dúvidas:

- Todas as abas de sua planilha possui um mesmo cabeçalho. Eles devem ser copiados? Ou somente da linha 7 para baixo?

Somente da linha para baixo.... O cabeço precisa constar uma vez só....

- Ao final de cada aba há vários totais. Eles devem ser copiados? Ou você terá um só no final?

O totais e outras informações devem ser ignorados sim....

- As planilhas serão copiadas uma abaixo a outra, certo? Você quer que fique igual à aba geral?

Exato... a aba geral foi criada, mas nunca atualizada....

- As abas de gráficos serão ignoradas.

Certo tb...

Responda as questões acima para que eu possa ajudá-la da melhor forma possível.

No aguardo.

Muito obrigada!!! tenho mais dois arquivos iguais a este para fazer o merge...

Link para o comentário
Compartilhar em outros sites
jeffsilveira
 

jeffsilveira

Postado
Postado

Simara, use o código abaixo que vai copiar tudo para uma aba só.

As abas existentes, de gráficos e outras serão todas excluídas e a planilha ficará com uma aba apenas.

Antes de executar a macro salve o arquivo em Excel 2007 ou superior, senão não haverá número de linhas suficientes e a macro dará erro.

Dê retorno.

Sub juntarabas()

' desabilita atualização da tela
Application.ScreenUpdating = False
' desabilita mensagens
Application.DisplayAlerts = False
' cria nova aba e nomeia
Sheets.Add Before:=Sheets(1)
ActiveSheet.Name = "RESUMO GERAL"
' copia cabeçalho da aba seguinte
ActiveSheet.Next.Select
Range("A1:A6").EntireRow.Copy
' cola na aba resumo
ActiveSheet.Previous.Select
Rows("1:1").Insert Shift:=xlDown
' dimensiona variável
Dim LIN As Integer
' copia o conteúdo da aba seguinte e apaga a aba
Do
Sheets("RESUMO GERAL").Select
' define a primeira linha vazia da aba resumo
LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row + 1
' vai para a aba seguinte
ActiveSheet.Next.Select
'executa somente se a aba tiver nome numérico (senão deleta)
If Not IsNumeric(ActiveSheet.Name) Then GoTo ok
' copia o conteúdo necessário
Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
' volta para a aba inicial e cola
ActiveSheet.Previous.Select
Rows(LIN).Insert Shift:=xlDown
' vai para a aba copiada e deleta ela
ActiveSheet.Next.Select
ok:
ActiveSheet.Delete
' limpa a variável LIN
LIN = 0
' repete o procedimento até haver apenas 1 aba
Loop Until Worksheets.Count = 1
'arruma
Columns("A:A").ColumnWidth = 7.29
Columns("B:B").ColumnWidth = 8.71
Columns("C:C").ColumnWidth = 25.86
Columns("D:D").ColumnWidth = 13.71
Columns("E:E").ColumnWidth = 9.86
Columns("F:F").ColumnWidth = 8.71
Columns("G:G").ColumnWidth = 6
Columns("H:H").ColumnWidth = 10.14
Columns("I:I").ColumnWidth = 9.86
Columns("J:J").ColumnWidth = 6.29
Columns("K:K").ColumnWidth = 5.57
Columns("L:L").ColumnWidth = 12.57
Columns("M:M").ColumnWidth = 5.57
Columns("N:N").ColumnWidth = 18.43
Columns("O:O").ColumnWidth = 2.29
Columns("P:P").ColumnWidth = 10.29
Application.CutCopyMode = False
' habilita atualização da tela
Application.ScreenUpdating = False
' habilita mensagens
Application.DisplayAlerts = False
Range("A1").Select
End Sub

Link para o comentário
Compartilhar em outros sites
  • 6 anos depois...
Carlos Brollo
 

Carlos Brollo

Postado
Postado

Ola pessoal.

 

Estou com uma dúvida muito parecida, porém não uso e nem sei usar macro. Será que teria outra forma?

Eu tenho uma planilha com 4 abas, cada aba corresponde a uma página. Eu gostaria de juntar as quatro abas, e alem disso, vir com numeração de páginas nele. Todas elas usam o mesmo cabeçalho.

Será que alguém pode me ajudar?

Obrigado.

EXEMPLO.xlsx

Link para o comentário
Compartilhar em outros sites
Carlos Brollo
 

Carlos Brollo

Postado
Postado
1 hora atrás, DJunqueira disse:

Anexe uma planilha com um exemplo de resultado q você gostaria de atingir.

Informe tb a sua versão do Excel.

FEITO.

 

Muito obrigado por querer me ajudar.

Fico no aguardo.

Abraços

EXEMPLO.xlsx

adicionado 29 minutos depois

Esqueci, o excel é 2013.

 

O que eu quero é juntar tudo numa só, com numeração de páginas para cada folha e usando o mesmo cabeçalho.

 

Vou anexar o pdf pra você ver como teria que ficar, porém as páginas não consegui fazer, você vai ver que estão todos com página 01/06.

 

Abraços

EXEMPLO.pdf

Link para o comentário
Compartilhar em outros sites
  • 3 semanas depois...
Carlos Brollo
 

Carlos Brollo

Postado
Postado

Entendi DJUNQUEIRA, obrigado.

Por acaso você saberia me dizer se da pra fazer algo mais dinâmico?

Tipo usando macro igual o jeffsilveira sugeriu? Eu gostei da ideia dele, porém quando eu faço isso, ele junta tudo numa só e apaga as 4 abas. Se tivesse como juntar as 4 abas em uma só mas permanecer com as 4 abas, dai ficaria com 5 abas, as 4 iniciais e uma com as 4 juntas. você sabe dizer se da pra fazer isso?

Desculpa te encher o saco, mas como eu disse, tenho q fazer pra 70 arquivos, se tiver que ser feito manualmente, vai me dar muito trabalho :(.

De qualquer forma, muito obrigado pela disposição.

Abraços e FELIZ ANO NOVO

Link para o comentário
Compartilhar em outros sites
Visitante
 

Visitante

Postado
Postado
Em 28/12/2018 às 15:46, Carlos Brollo disse:

... da pra fazer algo mais dinâmico?

Tipo usando macro igual o jeffsilveira sugeriu? Eu gostei da ideia dele, porém quando eu faço isso, ele junta tudo numa só e apaga as 4 abas. Se tivesse como juntar as 4 abas em uma só mas permanecer com as 4 abas, dai ficaria com 5 abas,

 

Experimente: 

Sub ReplicaPlanilhas()
 Dim k As Long, i As Long
  Application.ScreenUpdating = False
  Sheets.Add(after:=Sheets(Sheets.Count)).Name = "final"
  Columns(1).ColumnWidth = 39: Columns(2).ColumnWidth = 100
  i = 1
  For k = 1 To 4
   Sheets(k).Range("A1:B" & Sheets(k).Cells(Rows.Count, 2).End(3).Row).Copy
   Application.Goto Cells(i, 1): ActiveSheet.Paste: i = i + 66
  Next k
  Application.ScreenUpdating = True
End Sub

 

Link para o comentário
Compartilhar em outros sites
Carlos Brollo
 

Carlos Brollo

Postado
Postado
Em 30/12/2018 às 17:26, osvaldomp disse:

 

Experimente: 


Sub ReplicaPlanilhas()
 Dim k As Long, i As Long
  Application.ScreenUpdating = False
  Sheets.Add(after:=Sheets(Sheets.Count)).Name = "final"
  Columns(1).ColumnWidth = 39: Columns(2).ColumnWidth = 100
  i = 1
  For k = 1 To 4
   Sheets(k).Range("A1:B" & Sheets(k).Cells(Rows.Count, 2).End(3).Row).Copy
   Application.Goto Cells(i, 1): ActiveSheet.Paste: i = i + 66
  Next k
  Application.ScreenUpdating = True
End Sub

 

Perfeito, muito o brigado osvaldomp. Abraços e feliz ano novo

Link para o comentário
Compartilhar em outros sites
  • 1 ano depois...
Izabela1992
 

Izabela1992

Postado
Postado

Onde preciso fazer alterações no código para fazer com que o código valha para números de abas diferentes? Esse código funciona perfeitamente para até 4 abas. Como tenho várias planilhas (algumas com 35 abas, outras com 22 abas, etc...), que partes do código eu altero para adaptar a cada caso e unir as abas em uma só?

Link para o comentário
Compartilhar em outros sites
  • mês depois...
Scorsa
 

Scorsa

Postado
Postado

Gostaria de saber se teria algum comando em que consiga agrupar planilhas, sem copiar nenhum dados delas, apenas agrupar para facilitar a localização destas planinhas. Por exemplo, tenho várias planilhas como: João, José, Maria, gostaria de agrupar estas planilhas em um rótulo Clientes, e expandir estas abas quando necessário. Encontrei apenas a opção de ocultar e re-exibir, mas queria verificar se existe algum outro modo de realizar.

Link para o comentário
Compartilhar em outros sites
  • 5 meses depois...

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
 Compartilhar
Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!