Este fórum está sendo desativado

[Walfrides]

boa tarde!
estou precisando montar uma pasta do excel onde a mesma vai ter a função de consolidadora, a demanda é a seguinte:
existe um relatório (pasta do excel) ao qual exibe os custo de vários setores da empresa tudo em uma única pasta do excel, no caso aqui cada setor tem seu ID, que chamamos de centro de custo.
preciso pegar informações somente do meu setor e centralizar em uma outra pasta do excel onde vou fazer a analise desses dados.
nesse relatório tem varias informações de uma compra em linhas, por exemplo

centro de custo conta valor item etc
administrativo materiais 10 chave comprador
manutenção materiais 4 motor comprador 1
manutenção serviços 34 montagem comprador 3
.
.
.
e assim por diante,
preciso usar a pasta consolidadora, somente para buscar os dados da referente a manutenção, pra isso posso utilizar como chave o numero do centro de custo.
não sei se fui claro, se puder me ajudar fico agradecido.

resumindo, pegar todos os linhas do relatório referente a 1 setor e salvar em outra pasta do excel

coloque em anexo o exemplo do relatório onde o critério de busca são os ID do centro de custo.

o complicado desse arquivo q existem informações em 2 abas com os mesmos dados porem organizados em colunas diferentes.

[Jonathaluis]

Walfrides, boa tarde!

Me tire algumas dúvidas:
Os dados se repetem nas duas planilhas?
Quais dados exatamente quer de cada planilha? Tudo?

Eu fiz um esboço, na Aba Consolidado Geral em B2 coloque o Centro de custo, as duas abas de consolidado irá extrair somente o Centro de custo de B2

[Walfrides]

Jonatha

primeiro obrigado pelo breve retorno.
Os dados se repetem nas duas planilhas?
(o que repete são os lançamento de compras nos centro de custo, nunca vai ter a mesma linha nas duas planilhas)
Quais dados exatamente quer de cada planilha? Tudo?
(toda a linha de um determinado centro de custo, com isso vou ter todas as compras feitas naquele centro de custo)

pelo que vi do seu arquivo, é aquilo mesmo, porem precisaria que gerasse uma nova pasta de trabalho do excel, juntandos as informações das duas abas, "geral" e "especial".

ou seja pegar todos os lançamentos que tem no centro de custo 4011100 que estão nas abas "geral" e "especial" e colocar em uma nova pasta do excel

seria possível fazer isso?

[Walfrides]

complementando, porque de gerar uma nova pasta ou ter uma pasta que traga essas informações, se não eu vou ter que abrir varias planilhas e colocar o código pra rodar, se eu tiver um arquivo que centralize essas informações fica mais fácil de lidar.

[Jonathaluis]

Walfrides,

Ainda existe um problema para consolidar os dados das duas, os campos são diferentes.
Fiz de uma maneira diferente, em B2 coloque o nome da planilha de origem dos dados não esqueça da extensão (xlsx, ou xlsm...)

Você precisa executar com as duas aberta e os nomes das abas não podem ser mudados.

Em seguida quando executar a consolidado ela irá buscar os dados e em seguida salva em "C:" Relatório com data e hora
A consolidado nunca será afetada com isso, sempre poderá executar sem problemas, sempre irá gerar um relatório novo.

Precisamos resolver como irá consolidar os dados das duas em uma só.

Segue anexa

[Walfrides]

Jonatha!

para centralizar fiz a seguinte mudança no código.

Do While Esp.Cells(lE, 6) <> ""
If (Esp.Cells(lE, 6) = Ccusto) Then
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 5)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 5) = Esp.Cells(lE, 7)
lCG = lCG + 1
End If
lE = lE + 1
Loop

deu certo

[Walfrides]

Vou tentar Centrar as informações na pasta "consolidado" para que possa ter um histórico, assim vou ter um valor acumulado, por semana, mês e ano, acredito que o relatório vai ficar melhor!

Jonatha por hora agradeço muito sua atenção, assim que tiver a solução posto no fórum para que outros aproveitem.
att

[Walfrides]

jonatha

poderia me ajudar, não consigo entrar em nenhum dos whiles.


Dim Consoli As Workbook
Dim Origem As Workbook

Dim Ger As Worksheet
Dim ConGer As Worksheet
Dim Esp As Worksheet
Dim ConEsp As Worksheet

Sub Consolidado()

Set Consoli = Workbooks(ThisWorkbook.Name)
Set ConGer = Consoli.Worksheets("Consolidado Geral")


ori = ConGer.Cells(1, 2)

Erro = True
On Error GoTo Erro1
Set Origem = Workbooks(ori)
Erro = False
Erro1:

If (Erro) Then
MsgBox "A planilha de origem tem que estar aberta"
Exit Sub
End If

Set Ger = Origem.Worksheets("Base Total")
Set Esp = Origem.Worksheets("PAC")

lG = 2
lCG = 4
lE = 2
lCE = 4

Do While Ger.Cells(lG, 4) <> ""
Ccusto = Ger.Cells(lG, 4)
Select Case Ccusto
Case "4039200" ''supervisão de manutenção externa
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4039300" ''SUPERV.MANUT EX.FORM TR
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4039600" ''POSTO DE ABASTECIMENTO
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4039700" ''POSTO LAVAGEM/LUBRIFICAÇÃO
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4039400" ''SUPERV.MANUT.INTERNA
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4039100" ''ADMINISTRAÇÃO DE MANUTENÇÃO AGRÍCOLA
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035100" ''Caminhões Basculante
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035150" ''Caminhões Borracharia
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035200" ''Caminhões Bombeiro
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035250" ''Caminhões Comboio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035300" ''Caminhões Prancha
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035350" ''Caminhões Oficina
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035400" ''Caminhões Munck
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035450" ''Caminhões Transbordo - CCT
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035500" ''Caminhões Transbordo - Plantio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1

Case "4035550" ''Caminhões Distribuição Torta
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1

Case "4035600" ''Caminhões Calda Pronta
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035650" ''Caminhões Distribuição Corretivo
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035700" ''Caminhões e Veiculos de terceiro
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035750" ''Veículos Utilitários Adm
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4035800" ''Caminhões Bazuka
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036100" ''Tratores Pneus - Leves
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036150" ''Tratores Pneus - Medios CCT
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036200" ''Tratores Pneus - Médios Preparo
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036250" ''Tratores Pneus - Médios Plantio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036300" ''Tratores Pneus - Médios Tratos
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036350" ''Tratores Pneus - Pesados Preparo
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036400" ''Tratores Pneus - Pesados Plantio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036410" ''Tratores Pneus - Pesados Colheita
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036450" ''Colhedoras de cana - CCT
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036500" ''Motoniveladora / Rolo Compressor
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036510" ''Cavalo Mecânico
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036530" ''Eletrobomba
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036540" ''Escavadeira Hidráulica
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036550" ''Aplicador Automotriz
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036600" ''Carregadeira de cana
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036650" ''Pá Carregadoras
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036700" ''Motobombas
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036750" ''Ônibus
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036800" ''Colhedoras de muda - Plantio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036850" ''Plantadeira de cana
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036900" ''Tratores e Maq de Terceiro
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4037100" ''Implementos de Preparo
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4037200" ''Implementos de Plantio
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4037300" ''Implementos de Tratos
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4037400" ''Implementos de colheitas
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4037500" ''Implementos de Terceiros
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036660" ''Equipamentos Enfardamento de Palha
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case "4036670" ''Equipamentos - Pivô Central
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
lG = lG + 1
Case Else
lG = lG + 1
End Select
Loop


Do While Ger.Cells(lE, 6) <> ""
Ccusto = Ger.Cells(lE, 6)
Select Case Ccusto
Case "4039200" ''supervisão de manutenção externa
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4039300" ''SUPERV.MANUT EX.FORM TR
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4039600" ''POSTO DE ABASTECIMENTO
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4039700" ''POSTO LAVAGEM/LUBRIFICAÇÃO
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4039400" ''SUPERV.MANUT.INTERNA
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4039100" ''ADMINISTRAÇÃO DE MANUTENÇÃO AGRÍCOLA
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035100" ''Caminhões Basculante
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035150" ''Caminhões Borracharia
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035200" ''Caminhões Bombeiro
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035250" ''Caminhões Comboio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035300" ''Caminhões Prancha
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035350" ''Caminhões Oficina
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035400" ''Caminhões Munck
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035450" ''Caminhões Transbordo - CCT
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035500" ''Caminhões Transbordo - Plantio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035550" ''Caminhões Distribuição Torta
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035600" ''Caminhões Calda Pronta
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035650" ''Caminhões Distribuição Corretivo
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035700" ''Caminhões e Veiculos de terceiro
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035750" ''Veículos Utilitários Adm
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4035800" ''Caminhões Bazuka
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036100" ''Tratores Pneus - Leves
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036150" ''Tratores Pneus - Medios CCT
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036200" ''Tratores Pneus - Médios Preparo
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036250" ''Tratores Pneus - Médios Plantio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036300" ''Tratores Pneus - Médios Tratos
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036350" ''Tratores Pneus - Pesados Preparo
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036400" ''Tratores Pneus - Pesados Plantio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036410" ''Tratores Pneus - Pesados Colheita
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036450" ''Colhedoras de cana - CCT
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036500" ''Motoniveladora / Rolo Compressor
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036510" ''Cavalo Mecânico
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036530" ''Eletrobomba
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036540" ''Escavadeira Hidráulica
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036550" ''Aplicador Automotriz
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036600" ''Carregadeira de cana
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036650" ''Pá Carregadoras
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036700" ''Motobombas
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036750" ''Ônibus
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036800" ''Colhedoras de muda - Plantio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036850" ''Plantadeira de cana
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036900" ''Tratores e Maq de Terceiro
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1

Case "4037100" ''Implementos de Preparo
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4037200" ''Implementos de Plantio
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4037300" ''Implementos de Tratos
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4037400" ''Implementos de colheitas
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4037500" ''Implementos de Terceiros
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036660" ''Equipamentos Enfardamento de Palha
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case "4036670" ''Equipamentos - Pivô Central
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
lE = lE + 1
Case Else
lE = lE + 1
End Select
Loop


Cells(1, 8) = "=NOW()"
Data = Cells(1, 8)
Cells(1, 8) = ""
Data = Mid(Data, 1, 16) + "h"
Mid(Data, 3, 1) = "-"
Mid(Data, 6, 1) = "-"
Mid(Data, 14, 1) = "."
ActiveWorkbook.SaveAs Filename:= _
"c:\GFD\ " + Data + ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox ("Relatorio Salvo")





End Sub

[Jonathaluis]

Walfrides, bom dia!

Ontem dei uma olhada no seu código e rodou normal, só dá uma olhada nos nomes das abas para ver se não tem nenhum problema nisso. Caso não funcione assim ainda, marque uma das primeiras linhas com breakpoint (coloque sobre a linha e F9) e depois acompanhe passo a passo (F8).

Simplifiquei um pouco seu código, juntei o que era comum no fim com um IF se achou o Ccusto e atribuí um boolean para quando for encontrado.

Dim Consoli As Workbook
Dim Origem As Workbook

Dim Ger As Worksheet
Dim ConGer As Worksheet
Dim Esp As Worksheet

Sub Consolidado()

Set Consoli = Workbooks(ThisWorkbook.Name)
Set ConGer = Consoli.Worksheets("Consolidado Geral")

ori = ConGer.Cells(1, 2)

Erro = True
On Error GoTo Erro1
Set Origem = Workbooks(ori)
Erro = False
Erro1:

If (Erro) Then
MsgBox "A planilha de origem tem que estar aberta"
Exit Sub
End If

Set Ger = Origem.Worksheets("Base Total")
Set Esp = Origem.Worksheets("PAC")

lG = 2
lCG = 4
lE = 2

Do While Ger.Cells(lG, 4) <> ""
Ccusto = Ger.Cells(lG, 4)
achou = False
Select Case Ccusto
Case "4039200" ''supervisão de manutenção externa
achou = True
Case "4039300" ''SUPERV.MANUT EX.FORM TR
achou = True
Case "4039600" ''POSTO DE ABASTECIMENTO
achou = True
Case "4039700" ''POSTO LAVAGEM/LUBRIFICAÇÃO
achou = True
Case "4039400" ''SUPERV.MANUT.INTERNA
achou = True
Case "4039100" ''ADMINISTRAÇÃO DE MANUTENÇÃO AGRÍCOLA
achou = True
Case "4035100" ''Caminhões Basculante
achou = True
Case "4035150" ''Caminhões Borracharia
achou = True
Case "4035200" ''Caminhões Bombeiro
achou = True
Case "4035250" ''Caminhões Comboio
achou = True
Case "4035300" ''Caminhões Prancha
achou = True
Case "4035350" ''Caminhões Oficina
achou = True
Case "4035400" ''Caminhões Munck
achou = True
Case "4035450" ''Caminhões Transbordo - CCT
achou = True
Case "4035500" ''Caminhões Transbordo - Plantio
achou = True
Case "4035550" ''Caminhões Distribuição Torta
achou = True
Case "4035600" ''Caminhões Calda Pronta
achou = True
Case "4035650" ''Caminhões Distribuição Corretivo
achou = True
Case "4035700" ''Caminhões e Veiculos de terceiro
achou = True
Case "4035750" ''Veículos Utilitários Adm
achou = True
Case "4035800" ''Caminhões Bazuka
achou = True
Case "4036100" ''Tratores Pneus - Leves
achou = True
Case "4036150" ''Tratores Pneus - Medios CCT
achou = True
Case "4036200" ''Tratores Pneus - Médios Preparo
achou = True
Case "4036250" ''Tratores Pneus - Médios Plantio
achou = True
Case "4036300" ''Tratores Pneus - Médios Tratos
achou = True
Case "4036350" ''Tratores Pneus - Pesados Preparo
achou = True
Case "4036400" ''Tratores Pneus - Pesados Plantio
achou = True
Case "4036410" ''Tratores Pneus - Pesados Colheita
achou = True
Case "4036450" ''Colhedoras de cana - CCT
achou = True
Case "4036500" ''Motoniveladora / Rolo Compressor
achou = True
Case "4036510" ''Cavalo Mecânico
achou = True
Case "4036530" ''Eletrobomba
achou = True
Case "4036540" ''Escavadeira Hidráulica
achou = True
Case "4036550" ''Aplicador Automotriz
achou = True
Case "4036600" ''Carregadeira de cana
achou = True
Case "4036650" ''Pá Carregadoras
achou = True
Case "4036700" ''Motobombas
achou = True
Case "4036750" ''Ônibus
achou = True
Case "4036800" ''Colhedoras de muda - Plantio
achou = True
Case "4036850" ''Plantadeira de cana
achou = True
Case "4036900" ''Tratores e Maq de Terceiro
achou = True
Case "4037100" ''Implementos de Preparo
achou = True
Case "4037200" ''Implementos de Plantio
achou = True
Case "4037300" ''Implementos de Tratos
achou = True
Case "4037400" ''Implementos de colheitas
achou = True
Case "4037500" ''Implementos de Terceiros
achou = True
Case "4036660" ''Equipamentos Enfardamento de Palha
achou = True
Case "4036670" ''Equipamentos - Pivô Central
achou = True
Case Else
End Select

If (achou) Then
ConGer.Cells(lCG, 1) = Ger.Cells(lG, 4)
ConGer.Cells(lCG, 2) = Ger.Cells(lG, 5)
ConGer.Cells(lCG, 3) = Ger.Cells(lG, 2)
ConGer.Cells(lCG, 4) = Ger.Cells(lG, 3)
lCG = lCG + 1
End If
lG = lG + 1
Loop

Do While Ger.Cells(lE, 6) <> ""
Ccusto = Ger.Cells(lE, 6)
achou = False
Select Case Ccusto
Case "4039200" ''supervisão de manutenção externa
achou = True
Case "4039300" ''SUPERV.MANUT EX.FORM TR
achou = True
Case "4039600" ''POSTO DE ABASTECIMENTO
achou = True
Case "4039700" ''POSTO LAVAGEM/LUBRIFICAÇÃO
achou = True
Case "4039400" ''SUPERV.MANUT.INTERNA
achou = True
Case "4039100" ''ADMINISTRAÇÃO DE MANUTENÇÃO AGRÍCOLA
achou = True
Case "4035100" ''Caminhões Basculante
achou = True
Case "4035150" ''Caminhões Borracharia
achou = True
Case "4035200" ''Caminhões Bombeiro
achou = True
Case "4035250" ''Caminhões Comboio
achou = True
Case "4035300" ''Caminhões Prancha
achou = True
Case "4035350" ''Caminhões Oficina
achou = True
Case "4035400" ''Caminhões Munck
achou = True
Case "4035450" ''Caminhões Transbordo - CCT
achou = True
Case "4035500" ''Caminhões Transbordo - Plantio
achou = True
Case "4035550" ''Caminhões Distribuição Torta
achou = True
Case "4035600" ''Caminhões Calda Pronta
achou = True
Case "4035650" ''Caminhões Distribuição Corretivo
achou = True
Case "4035700" ''Caminhões e Veiculos de terceiro
achou = True
Case "4035750" ''Veículos Utilitários Adm
achou = True
Case "4035800" ''Caminhões Bazuka
achou = True
Case "4036100" ''Tratores Pneus - Leves
achou = True
Case "4036150" ''Tratores Pneus - Medios CCT
achou = True
Case "4036200" ''Tratores Pneus - Médios Preparo
achou = True
Case "4036250" ''Tratores Pneus - Médios Plantio
achou = True
Case "4036300" ''Tratores Pneus - Médios Tratos
achou = True
Case "4036350" ''Tratores Pneus - Pesados Preparo
achou = True
Case "4036400" ''Tratores Pneus - Pesados Plantio
achou = True
Case "4036410" ''Tratores Pneus - Pesados Colheita
achou = True
Case "4036450" ''Colhedoras de cana - CCT
achou = True
Case "4036500" ''Motoniveladora / Rolo Compressor
achou = True
Case "4036510" ''Cavalo Mecânico
achou = True
Case "4036530" ''Eletrobomba
achou = True
Case "4036540" ''Escavadeira Hidráulica
achou = True
Case "4036550" ''Aplicador Automotriz
achou = True
Case "4036600" ''Carregadeira de cana
achou = True
Case "4036650" ''Pá Carregadoras
achou = True
Case "4036700" ''Motobombas
achou = True
Case "4036750" ''Ônibus
achou = True
Case "4036800" ''Colhedoras de muda - Plantio
achou = True
Case "4036850" ''Plantadeira de cana
achou = True
Case "4036900" ''Tratores e Maq de Terceiro
achou = True
Case "4037100" ''Implementos de Preparo
achou = True
Case "4037200" ''Implementos de Plantio
achou = True
Case "4037300" ''Implementos de Tratos
achou = True
Case "4037400" ''Implementos de colheitas
achou = True
Case "4037500" ''Implementos de Terceiros
achou = True
Case "4036660" ''Equipamentos Enfardamento de Palha
achou = True
Case "4036670" ''Equipamentos - Pivô Central
achou = True
Case Else
End Select

If (achou) Then
ConGer.Cells(lCG, 1) = Esp.Cells(lE, 6)
ConGer.Cells(lCG, 2) = Esp.Cells(lE, 7)
ConGer.Cells(lCG, 3) = Esp.Cells(lE, 4)
ConGer.Cells(lCG, 4) = Esp.Cells(lE, 5)
lCG = lCG + 1
End If
lE = lE + 1
Loop

Cells(1, 8) = "=NOW()"
Data = Cells(1, 8)
Cells(1, 8) = ""
Data = Mid(Data, 1, 16) + "h"
Mid(Data, 3, 1) = "-"
Mid(Data, 6, 1) = "-"
Mid(Data, 14, 1) = "."
ActiveWorkbook.SaveAs Filename:= _
"c:\GFD\ " + Data + ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox ("Relatorio Salvo")
End Sub

[Walfrides]

acredito que o problema esta em:

Set Ger = Origem.Worksheets("Base Total")
Set Esp = Origem.Worksheets("PAC")

quando ele esta indo pro loop não tem os dados das abas carregados, ai no consegue comparar se a celular e vazia ou não

[Jonathaluis]

Walfrides, boa tarde!

Você está trabalhando com duas planilhas ou uma só?
me envia a planilha.

[Walfrides]

uma planilha com duas abas.

realmente ele não esta carregando o nome das abas pra entrar no loop

[Walfrides]

Achei o erro, na planilha que estou puxando os dados, as duas primeiras linhas estão vazias

foi só modificar

lG = 4

lE = 4

já deu certo aqui meu amigo, obrigado!

[Kledison]

Olá Walfrides,

se a sua dúvida foi resolvida, fineza marcar o tópico como resolvido.

Att
Moderador