Sütuna yazılan veriye göre arama

[kelkitli]

Selamlar,
Aşağıdaki kod ile şöyle bir değişiklik yapmak istiyorum.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim no As Range
Dim mr As Worksheet
If Target.Count > 1 Or IsEmpty(Target) Or Target.Column <> 1 Then Exit Sub
Set mr = Sheets("PERSONEL")
Set no = mr.Range("B:B").Find(Target, , xlValues, xlWhole)
If Not no Is Nothing Then
    Target.Offset(0, 1) = no.Offset(0, 1)
    'Target.Offset(0, 2) = no.Offset(0, 2)
Else
    MsgBox "Bu kimlik numarası bulunamadı.", vbCritical, "B U L U N A M A D I"
End If
End SubŞu kısmı 1. sütun değil A2:A olarak kullanmak istiyorum.

Kod: [Seç]

If Target.Count > 1 Or IsEmpty(Target) Or Target.Column <> 1 Then Exit Sub


[Bülent Öztürk]

Aleyküm selam Necmettin Bey.

Şu şekilde dener misiniz?

Kod: [Seç]

If Target.Count > 1 Or IsEmpty(Target) Or Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub


[kelkitli]

Bülent Bey, teşekkür ederim. İşlem tamam.