Macro que abra, copie e cole várias planilhar em uma consoli

2024 - VBA & Macros

Post Recente por Camario 9 anos atrás

3 Posts

2 Usuários

0 Reactions

771 Visualizações

RSS

Camario

(@camario)

Posts: 2

New Member

Topic starter

Pessoal, boa tarde.

Tenho mais de 500 planilhas em uma pasta e estou precisando consolidar todas as informações delas em uma única planilha. Poderia fazer manualmente, mas levariam dias de trabalho.

As planilhas vão até a coluna AZ e possuem quantidade de linhas diferentes umas das outras. A ideia é abrir cada planilha, copiar todas as informações da coluna A até a coluna AZ e da linha 10 até a ultima de cada planilha e colar embaixo da última linha preenchida da planilha consolidada.

Tenho conhecimento básico de VBA, consigo interpretar e criar rotinas mais simples. Entretanto, estou penando para conseguir colocar essa ideia em prática.

Se alguém tiver uma luz, ficaria muito agradecido.

Obrigado

Postado : 03/05/2016 12:26 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Tente adequar esse codigo


Sub Consolidar()

Dim FSO As Object
Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Pasta = "C:" 'Pasta com as planilhas que serão abertas e copiadas

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

For Each Planilha In FSO.GetFolder(Pasta).Files

If InStr(1, Planilha, ".xlsx") = 0 Then GoTo PRÓXIMO

Workbooks.Open (Planilha)
OpenBook = ActiveWorkbook.Name

'Seu código para copiar

Windows(ThisWorkbook.Name).Activate

'Seu código para colar

Application.CutCopyMode = False
Workbooks(OpenBook).Close False
PRÓXIMO:
Next

Application.ScreenUpdating = True

MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso"

Application.Calculation = xlCalculationAutomatic

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 03/05/2016 2:03 pm