Hücreye sicil numarası girdiğimde karşılığının gelmesi

[tahsinanarat]

Sayfa2 den herhangi bir hücreye sicil numarası girdiğim zaman Sayfa1 deki a sunununda bulanan sicilin B sutunundaki karşılığının gelmesini istiyorum,
Bir nevi düşeyara benzeri kod,fakat bütün hücreler için geçerli olmasını. Yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim.

 

[askm]

İlgili yere =DÜŞEYARA(E16;Sayfa1!A:B;2;0) formülünü yazabilirsiniz.

 

[tahsinanarat]

Makro ile yapmalıyım. Mutelif hücrelerde kullanacağım.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E16"), Target) Is Nothing Then Exit Sub
Dim son As Long
son = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
Cells(Target.Row, "F") = WorksheetFunction.VLookup(Target.Value, Sheets("Sayfa1").Range("A2:B" & son), 2, 0)
End Sub

 

[tahsinanarat]

Sn. askm, ilginiz için çok teşekkür ederim, ancak bu istediğim saadece E16 hücresi için sınırlı olmayacak, hangi hücreye sicil numarası yazarsam sağındaki sutunda, yada yazdığım hücre içinde de olabilir isim gelecek

 

[tahsinanarat]

Sn. askm hocam kodlarınızdan faydalanarak yaptım, aynı hücre üzerine yazdığında b sütunundaki karşılığı geliyor,
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("a3:z65"), Target) Is Nothing Then Exit Sub
Dim son As Long
On Error Resume Next
son = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
ActiveCell.Offset(-1, 0).Value = WorksheetFunction.VLookup(Target.Value, Sheets("Sayfa1").Range("A2:B" & son), 2, 0)
End Sub

 

[tahsinanarat]

Sn. hocalarım hata tuzaklaması olmadan 6.mesajımdaki kodu nasıl çalıştırabiliriz.
'On Error Resume Next