düşeyara formülüyle yapılan işlemleri makroyla nasıl

[gazalierbay]

mesela il adının yazılı olduğu bir bakılan değerim var.Bu il adı devamlı değişiyor.Ben de başka bir hücreye bu ilin bilet fiyatını yazmak istiyorum.Bütün illerin adının ve fiyatının bulunduğu bir tablo yaptım ve düşeyara formülüyle başka hücreye bilet fiyatını yazdırıyorum ama bazen hata veriyor.Bu işlemi makroyla nasıl yapabiliriz.Yardımcı olucak herkese şimdiden teşekkürler.

 

[pratikvb]

Sub Duseyara()
Dim Duseyara As Range
For Each Duseyara In Range("A3:A12")
Duseyara.Offset(0, 1) = WorksheetFunction.VLookup _
(Duseyara, Sheets(1).Range("A2:B1000"), 2, 0)
Next Duseyara
End Sub

A3:A12 alanın için arama yapılıyor.
Bir sağına sonuç yazılıyor.
(A13:A12 alanına bak, Sayfa1.A2:B1000 de yazanla aynısını bul, 2.sütunu ver, ama birebir eşleştir.)