VBA - Procura e "imputa" valores nas cells do lado.

Senhores,

Preciso de ajuda. Estou desde as 09:00 manhã trabalhando na planilha. São 14:34 e ainda não achei uma solução.

Minha Planilha tem uma lista de operações Exemplo:

0 A
1 N. Op
2 1234
3 1235
4 1236
5 1237
...
3015 4252

Sim ela já estão com 3015 linhas. E a cada dia cresce 20 operações.

Enfim,

Necessito, que nessa mesma planilha, eu tivesse um canto que:

Digitasse o número da operação - A data que foi entregue - Doc's completa.

Digamos:

0 A B C ... F G H
1 1236 26/07/2012 Doc's Ok

A macro faria: Buscar o número em F1 ("1236") na lista em ("A:A")

Ao achar o número (que no caso está em "A4") preenchesse em "B4" e "C4" o que está em "G1" e "H1";

Eu cheguei, na minha Macro, até aqui: (o =Range("procura.operacao") é o nosso "F1")

Columns("A:A").Select
Selection.Find(What:=Range("procura.operacao").Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

E não sei o que fazer, com isso aqui (e na verdade nem sei se isso aqui vai fazer alguma coisa)

Date = Range("G1").Value
Infor = Range("H1").Value


Espero por uma resposta, tô vesgo de tanto pesquisar na internet!

Abraço!

Boa noite!!

Mande seu arquio, cadastre se em site gratuito como sendspace e nos mande o link!

Att

alexandrevba escreveu:

Boa noite!!

Mande seu arquio, cadastre se em site gratuito como sendspace e nos mande o link!

Att

Bom dia Alexandrevba,

Obrigado pelo retorno,

Segue a planilha!

Diz que não tenho permissão pra colocar link's de sites externos. A minha conta é do 4shared.

/file/024cqdIw/VBA_entrega.html

Abraço!

Boa noite!!

Mande completo, mas coloque espaço entre alguns caracteres...

Exemplo:. www. 4shred /file/024cqdIw/VBA_entrega.html

alexandrevba escreveu:

Boa noite!!

Mande completo, mas coloque espaço entre alguns caracteres...

Opa!

Desculpa, sou novo nesse Forum.

(nomedosite.com)/file/024cqdIw/VBA_entrega.html

Abraço!