Hesap Nosu getirme

[mars2]

İyi Günler;
Tablomun B sutununda hesap noları bulunmaktadır. Bu numaralır süzdüğümde, süzdüğüm hesa nosu B2 hücresine yazılmasını istiyorum. Bunu ister formülle veya macro ile nasıl yapılır.
Buna ait örnek ektedir.

 

[fireman64]

Dosyanız ektedir.

 

[mars2]

Sayın fireman64;

İlgi ve sorunu çözümünde yardımlarınızdan dolayı teşekkürler.