"Append" paginas de um file Excel

2024 - VBA & Macros

Post Recente por Rogari 8 anos atrás

6 Posts

3 Usuários

0 Reactions

1,735 Visualizações

RSS

Rogari

(@rogari)

Posts: 6

Active Member

Topic starter

Bomdia,

Estou usario de excel 2011 para mac, tenho um file que tem, mais o menos, 30 paginas (worksheets).

A estrutura dessas pagina é sempre a mesma.
2000 janeiro
2000 fev
2000 març
...
2003 maio
2003 junho

E as colonas sao as mesmas.

Bom, eu tenho que append todas essa numa mesma worksheet o num mesmo file. Sei que é possivel fazer isso com uma macro.

Utilizei essa, mas algumas paginas nao foram copiadas, nao sei porquê

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

Vocês têm uma ideia para melhorar a macro o utilizar uma outra metodologia ?

Muito obrigado !

NB: nao faço copy-paste porquê cada pagina tem entre 3000 e 40.000 linhas... meu computador nao gosta.

Postado : 08/08/2016 9:38 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa noite Rogari,

Como você não disponibilizou um arquivo de exemplo e eu não entendi bem o seu código, em anexo coloquei uma adaptação do código que eu uso, está no módulo 1.
Se na primeira linha de cada planilha (worksheet) do seu arquivo está cabeçalho e ele possuir apenas 3 argumentos (A1,B1 e C1), basta copiar o meu código para seu arquivo e rodar.

Sobre opções alternativas ao copy-paste, de uma olhada nesse video: https://www.youtube.com/watch?v=f3v_pIaGrhU

att,

Postado : 08/08/2016 4:16 pm

Rogari

(@rogari)

Posts: 6

Active Member

Topic starter

Olà !
obrigado pela sua resposta.
Vou ver o video.
Antes de mais nada, mando-lhe um exemplo do meu file (o seu file, na verdade, é o mesmo do que o meu). Os meus files tem, respectivamente, 19 e 36 worksheets. o numero de colunas é de 30. Se lembro bem, até AD. Tenho que modificar o codigo para isso ?

Utilizei seu codigo, mas nao entendo porquê todas as paginas nao foram combinada. por exemplo, faltam as paginas 2002-2010, e falta janeiro 2001. Porém, todas as colunas foram combinadas (até o P)

obrigado

Postado : 09/08/2016 1:50 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa noite Rogari,

Em anexo coloquei uma versão com uma pequena alteração no código.
Agora o cabeçalho vai ser pego automaticamente (se não tiver nenhuma célula vazia, por exemplo da A1 até a AD1).

Peguei o arquivo que você colocou em anexo e coloquei o código com a alteração, aqui funcionou. Teste no seu computador, o código está no módulo 1.

Se não funcionar avise.

Att,

Postado : 09/08/2016 8:10 pm