Enter tuşu ile belirlediğim alanda arama yaparak hareket edeyim.

[kelkitli]

Değerli Dostlar Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A: D]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Select
End Sub

Bu kodları şu şekilde değiştirmek istiyorum. 2. satırda A: D aralığında Enter tuşuna basarak ilerlemek, D den sonra Enter leyince A ya dönmek. A2 hücresine plaka numarasını girip Enter leyince Sayfa2 B:B aralığında aramasını, değer varsa B2 ye geçmesini, yoksa hücreyi silip A2 de kalmasını sağlamak istiyorum.