Bom dia!

Noa temos tópicos próximos de sua dúvida de foram que, estão separados e combinados sua solicitação.

Já tentou a pesquisa do fórum?

Att

Boa tarde !

Já busquei neste forum e em outras partes, porém, não encontrei.

Conseguem me ajudar com esta questão.

Grato.

Boa tarde!!

Aguarde caso outro não responda, eu vou tirar um tempo e tentar te ajudar.

Att

Boa tarde!!

J:SuprimentosLogísticaControle De EntregasCentro

Você tem um diretório certo?

Todas as guias estão dentro desse mesmo diretório?

Deverá copiar as linhas correspondente aos critérios?

Sub DeveSerAdaptado()
Path = "C:UsersAleVBADesktopDiretorio com todas as guias"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
        Sheet.Copy After:=ThisWorkbook.Sheets(1)
        Next Sheet
        Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Att

Todas guias estão dentro do diretório (J:SuprimentosLogísticaControle De EntregasCentro) Dentro deste diretório são dividas em Centro (1011 SERVIÇOS) | (1010 BETTEGA)|(2010 MANAUS) e (3010 ILHÉUS), dentro destes centros* , são divididas por ano ( Ex :J:SuprimentosLogísticaControle De EntregasCentro1010 BETTEGA2014MARÇO 2014).
Os Critérios para buscas são (No Chão/Pendente/Em transito).

Grato.

Boa tarde!!!

Tentou adaptar minha rotina da postagem anterior?

Att

viewtopic.php?f=10&t=9837&hilit=+*consoli*
viewtopic.php?f=10&t=10900&hilit=+*consoli*
viewtopic.php?f=10&t=4878&hilit=+*consoli*