Boa tarde!!

Sinceramente eu não entendi.

Att

Bom vamos ver se consigo explicar melhor.

Na coluna A temos a data do pedido de um produto X e na coluna B temos a data em que este mesmo produto X foi entregue.
Preciso saber, baseado na data mais recente de entrega, qual foi a data do pedido, ou seja, para o exemplo anterior, a data de entrega mais recente 10/04/2015 então a macro deve me retornar a data do pedido correspondente a esta, ou seja, 23/03/2015.

Sds,
Luciano

Boa noite!!

Eu não vejo a lógica de porque o código vai mostrar essa data 23/03/2015, há algum critério para isso, no seu exemplo eu não vejo essa data

Att

Alexandre,

Eu errei a data de retorno (2 vezes) a data retornada deve ser 20/03/2015, correspondente a data de entrega de 10/04/2015 e não 23/03/2015.

Sds,
Luciano

Tá, mas...

O que vc quer fazer?

Vc quer fazer uma pesquisa? Isso dá pra fazer até com fórmulas.

Sem o modelo da planilha, a resposta vai ser tão genérica quanto a pergunta.

Gilmar,

Isso é 0,1% do código todo.
Sei que da pra fazer com fórmula, mas não quero (e não posso) modificar a planilha de onde eu pego esses dados, então achei melhor tentar fazer através do macro.

Sds,
Luciano

Sub PESQUISA_GENERICA()
'Adapte para os outros 99,9% do código
Dim CORRESP As Long, INDICE As Date, PROCURADO As Date

InputBox ("Digite a data procurada:")

On Error GoTo INEXISTE
CORRESP = Application.WorksheetFunction.Match(PROCURADO, Range("B:B"), 0)
INDICE = Application.WorksheetFunction.Index(Range("B:B"), CORRESP)
INEXISTE:
MsgBox "O valor procurado não existe!"

End Sub