Formülü Vba Koduna Çevirmek

[conquerora]

Merhaba
mix isimli sayfa da V2 hücresinden itibaren V sütünuna =DÜŞEYARA(h2;$AA$1:$AB$15;2;YANLIŞ) formülünü vba ile yazmak istiyorum.
Yaptıklarım çalışmadı. Nasıl bir kod yazmalıyım?

 

[Trilenium]

Dim aranan As Integer, sonuc As String
aranan = 701
sonuc = Application.WorksheetFunction.VLookup(aranan, Range("Aa1:AB15"), 2, False)
MsgBox sonuc

 

[conquerora]

Merhaba
Alttaki kod ile bir satırda çalıştırdım.
5000 satır verim var tüm satırlarda çalışması için nasıl güncellenmesi gerekir?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Sheets("mix").Cells(2, 8) > 0 Then
Sheets("mix").Cells(2, 22) = Application.WorksheetFunction.VLookup(Sheets("mix").Cells(2, 8), Sheets("mix").Range("AA1:AB15"), 2, 0)
Else
MsgBox "Kayıt Bulunamadı"
End If
End Sub