Düşeyara formülünü Makro ile yapmak

[oornek1]

Merhaba;

=DÜŞEYARA(A10;DataBase!A2:G1000;2;YANLIŞ)
=DÜŞEYARA(A10;DataBase!A2:G1000;3;YANLIŞ)
=DÜŞEYARA(A10;DataBase!A2:G1000;4;YANLIŞ)
=DÜŞEYARA(A10;DataBase!A2:G1000;5;YANLIŞ)
=DÜŞEYARA(A10;DataBase!A2:G1000;6;YANLIŞ)
=DÜŞEYARA(A10;DataBase!A2:G1000;7;YANLIŞ)

yukarıdaki düşey ara formülünü makro ile nasıl yaparım

Not Örnek olarak verdiğim formül Liste Sayfasındaki A10 satırdaki kod ben Bu formül ile Liste sayfadaki A7 hücresinden başlayarak ID numarasını hangi satıra yazarsam yazayım DataBase sayfasındaki A2:G1000 arasındaki verileri yazdırabiliyorum bunu makro ile yapmam mümkünmü,

 

[askm]

WorksheetFunction.VLookup( Range("a10", DataBase!A2:G1000, 2, False )
şeklinde deneyin. Ya da örnek dosya eklerseniz bakalım.