Ir ao conteúdo
Regras do Clube do Hardware

Excel Copiar colunas de vários arquivos para UM SÓ

Bruno Rimoldi

Por Bruno Rimoldi
em Microsoft Office e similares

 Compartilhar

Posts recomendados

Bruno Rimoldi
 

Bruno Rimoldi

Postado
Postado

Olá pessoal,

 

preciso de uma macro que consiga ler o nome das colunas do arquivo "LAYOUT - Copy.xlsx", vá para a pasta "ARQS TESTE", abra o primeiro arquivo, compare as colunas e se existir igual, copie os dados que estão abaixo. Acabando o primeiro arquivo, começar no segundo automaticamente.

Objetivo: Consolidar todas as informações dos quase 400 arquivos que tenho todo mês em uma única planilha.

Detalhe: Em cada arquivo existem colunas diferentes, como o arquivo de IRRF possui somente informações da apuração de IRRF, o arquivo de ISS possui somente informações da apuração de ISS, mas existem colunas iguais em todos os arquivos. Tentei fazer por fórmulas essas cópias, mas travo quando ele tem que buscar o arquivo na pasta e abrir o outro na sequencia. :oops:

 

Seguem os arquivos anexos.

 

Grato,

Bruno

LAYOUT E ARQUIVOS.zip

Bruno Rimoldi
 

Bruno Rimoldi

Postado
  • Autor
Postado

Boa tarde pessoal,

 

consegui fazer a macro mas ela está copiando as colunas por inteiro (de cabo a rabo) e não verificando o nome da coluna no Layout, verificar se existe no arquivo que estou abrindo e copiando nas devidas colunas do layout. Estou postando o código para melhor visualização e o arquivo também. Se alguém puder me auxiliar, agradeço imensamente. Só está faltando isso. 


Public Sub Consolidar()
Dim lin01, lin02, lin03 As Integer
Dim ArqPeriferico As String
Dim Tempo As Double

Application.ScreenUpdating = False

Tempo = Now()
lin01 = 2
lin03 = 2
Do Until Sheets("Capa").Cells(lin01, 11).Value = Empty
    ArqPeriferico = Sheets("Capa").Cells(lin01, 11).Value
    Workbooks.Open (ThisWorkbook.Path & "\ARQS TESTE\" & ArqPeriferico)
    lin02 = 9
    Do Until Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 2).Value = Empty
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 1).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 2).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 2).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 3).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 3).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 4).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 4).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 5).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 5).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 6).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 6).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 7).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 7).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 8).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 8).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 9).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 9).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 10).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 11).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 11).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 10).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 12).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 12).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 13).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 13).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 14).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 14).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 15).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 15).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 16).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 16).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 17).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 17).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 18).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 18).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 19).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 19).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 20).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 20).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 21).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 21).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 22).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 22).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 23).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 23).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 24).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 24).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 25).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 25).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 26).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 26).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 27).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 27).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 28).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 28).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 29).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 29).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 30).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 30).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 31).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 31).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 32).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 32).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 33).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 33).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 34).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 34).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 35).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 35).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 36).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 36).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 37).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 37).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 38).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 38).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 39).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 39).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 40).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 40).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 41).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 41).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 42).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 42).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 43).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 43).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 44).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 44).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 45).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 45).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 46).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 46).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 47).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 47).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 48).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 48).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 49).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 49).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 50).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 50).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 51).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 51).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 52).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 52).Value = Workbooks(ArqPeriferico).Sheets(1).Cells(lin02, 53).Value
        ThisWorkbook.Sheets("Consolidado").Cells(lin03, 54).Value = ArqPeriferico
        lin03 = lin03 + 1
        lin02 = lin02 + 1

    Loop
    Workbooks(ArqPeriferico).Close (False)
    lin01 = lin01 + 1
Loop

MsgBox ("Consolidação Concluída. O tempo foi de ") & Now() - Tempo

Sheets("Consolidado").Select

Application.ScreenUpdating = True

End Sub

 

 

LAYOUT E ARQS TESTE.zip

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!