Macro copiar tabelas em abas diferentes

Question

Opa pessoal, estou pesquisando sobre esta macro em v&aacute;rios locais e at&eacute; agora ainda n&atilde;o consegui colocar ela para funcionar (basicamente n&atilde;o achei exatamente o que quero), por isso estou criando este t&oacute;pico.

Tenho dois arquivos com v&aacute;rias abas iguais dentro deles (uma aba para cada dia do m&ecirc;s) e existe uma tabela em cada aba dessa que quero copi&aacute;-las em sequencia em um novo arquivo. 
O detalhe importante que ainda n&atilde;o consegui implementar foi copiar as tabelas a partir da primeira linha vazia da tabela copiada anteriormente, pois as tabelas nem sempre est&atilde;o 100% preenchidas (ou fazer a macro ler e copiar somente as linhas com valores, mas achei que esse modo seria mais complicado). A macro teria que ser do modo:

- Abrir 'Arquivo1'
- Ler e copiar 'Tabela1.1' em Plan1
- Colar 'Tabela1.1' em 'ArquivoTabelas'
- Mudar de aba e ler e copiar 'Tabela1.2' em Plan2
- Colar 'Tabela1.2' em 'ArquivoTabelas'  / come&ccedil;ando a partir da primeira linha vazia da Tabela1.1
- Fechar 'Arquivo1'

- Abrir 'Arquivo2'
- Ler e copiar 'Tabela2.1' em Plan1 
- Colar 'Tabela2.1' em 'ArquivoTabelas' / come&ccedil;ando a partir da primeira linha vazia da Tabela1.2
- Mudar de aba e ler e copiar 'Tabela2.2' em Plan2
- Colar 'Tabela2.2' em 'ArquivoTabelas'  / come&ccedil;ando a partir da primeira linha vazia da Tabela2.1
- Fechar 'Arquivo2'

Lembrando que essas tabelas possuem o mesmo tamanho e est&atilde;o localizadas com in&iacute;cio e fim nas mesmas linhas e colunas nas abas.

Tentei explicar bem o que quero e basicamente &eacute; isso que eu precisaria, a macro no final seria maior para incrementar com outras abas e arquivos, mas com essa base funcionando j&aacute; &eacute; mais do que o suficiente!

Obrigado!

Answer

Pessoal, consegui fazer a colagem a partir da primeira linha vazia da colagem anterior como eu queria. A macro est&aacute; aqui embaixo para quem quiser dar uma olhada, est&aacute; 100% funcional.

Sub Teste()
Workbooks.Open Filename:=C:\Users\leonardo.pontes\Desktop\Nova pasta\Pasta1.xlsx
Windows(Pasta1.xlsx).Activate
Sheets(Plan1).Range(A1:C6).Copy
Windows(Macro.xlsm).Activate
Range(A1).Select
ActiveSheet.Paste
Windows(Pasta1.xlsx).Activate
Sheets(Plan2).Range(A1:C3).Copy
Windows(Macro.xlsm).Activate
Range(A1).Select
Do
        If ActiveCell   Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = 
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
Windows(Pasta1.xlsx).Activate
Sheets(Plan3).Range(A1:C6).Copy
Windows(Macro.xlsm).Activate
Range(A1).Select
Do
        If ActiveCell   Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = 
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
  
Windows(Pasta1.xlsx).Activate
ActiveWindow.Close
End Sub

O problema que me resta &eacute; que preciso ler 30 abas no mesmo arquivo e do modo que fiz at&eacute; agora minha macro ficaria muito extensa. Existe algum modo de otimizar a mudan&ccedil;a de abas nessa macro (talvez fazer um loop para mudan&ccedil;a de abas e dentro dele esse loop que j&aacute; usei para colar a partir da primeira linha vazia)? Estou chamando o arquivo base e mudando a aba e o arquivo destino manualmente por enquanto.

Answer

Fa&ccedil;a uma varredura nas abas existentes, no inicio do seu codigo, algo assim:
[code=vb]
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
         '..... seu codigo aqui......
     Next '

Answer

[QUOTE=Basole, post: 7839167, member: 908394]Fa&ccedil;a uma varredura nas abas existentes, no inicio do seu codigo, algo assim:
[code=vb]
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
         '..... seu codigo aqui......
     Next '

Ferramentas

Mover Tópico