VBA - Excel - Automatizando a Consolidação de Planilhas com VBA no Excel

Abrir e fechar planilhas para vincular dados? Unifique!!!!

Se você já se viu perdendo horas preciosas copiando e colando dados de várias planilhas diferentes em uma única pasta de trabalho, você não está sozinho. A demanda por essa tarefa é alta, mas a boa notícia é que você pode economizar tempo e esforço utilizando o VBA (Visual Basic for Applications) no Excel para automatizar esse processo. 

Passo a Passo para Automatização:

1. Abra o Excel e pressione Alt + F11 para acessar o Editor VBA.

2. Insira um novo módulo clicando em "Inserir" > "Módulo".

3. Dentro do módulo, cole o código abaixo:

Sub ConsolidarPlanilhas()

    Dim xl As New Excel.Application

    Dim xlw As Excel.Workbook

    Dim vItem As Variant

    With Application.FileSearch

        .LookIn = "C:\planilhas" ' Insira o caminho da pasta onde estão os arquivos

        .SearchSubFolders = True

        .Execute

        For Each vItem In .FoundFiles

            Set xlw = xl.Workbooks.Open(vItem)

            

            Dim lin As Long, col As Long

            For lin = 1 To 10

                For col = 1 To 3

                    ThisWorkbook.Sheets("Destino").Cells(lin, col).Value = xlw.Sheets(1).Cells(lin, col).Value

                Next col

            Next lin

            Set xlw = Nothing

        Next vItem

        xlw.Sheets("Detalhes").Select

        Dim valor As Long

        valor = Range("A65536").End(xlUp).Row

        xlw.Close False

        Set xl = Nothing

    End With

End Sub

4. Modifique o código no trecho onde está "C:\planilhas" para o caminho onde suas planilhas estão localizadas.

5. Crie uma nova planilha na mesma pasta de trabalho para receber os dados consolidados e dê a ela o nome "Destino".

6. Execute o código clicando no botão de execução (triângulo verde) no Editor VBA ou associe-o a um botão na planilha.

Nota importante: Sempre faça backup dos seus arquivos antes de executar scripts VBA, para garantir que não ocorram perdas de dados acidentais.

Com este script VBA, você poderá automatizar o processo de consolidação de dados de várias planilhas em uma pasta de trabalho principal, economizando tempo e reduzindo erros. Lembre-se de que a eficácia desse código dependerá da sua organização das planilhas de origem e da adaptação do código para atender às suas necessidades específicas.