Enter tuşuna basıldığı zaman normalde seçim kutusu bir satır aşağı iner. İşte bunu sağa, sola, yukarı olacak şekilde de yapabiliriz. Nasıl yapıldığını görelim.
Option Explicit
Sub EnterTusunaBasildigindaHareketYonunuDegistir()
'--------------------------------------------------
'Sağa
'--------------------------------------------------
Application.MoveAfterReturnDirection = xlToRight
'--------------------------------------------------
'Sola
'--------------------------------------------------
Application.MoveAfterReturnDirection = xlToLeft
'--------------------------------------------------
'Yukarıya
'--------------------------------------------------
Application.MoveAfterReturnDirection = xlUp
'--------------------------------------------------
'Aşağıya
'--------------------------------------------------
Application.MoveAfterReturnDirection = xlToDown
End Sub