I have use the macro code below to control the cursor movement when i key in data from column A until I then i press Enter the cursor will directly goes to column A row below but what is my problem is whenever i want to do amendment to the column backwards the Enter function does not works as i reach to column I it will not control the cursor to back to column A row below.
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
' Code goes in the Worksheet specific module
Dim rng As Range
' Set Target Range,Range("A1:I3")
Set rng = Target.Parent.Range("A:I")
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met (do your thing here...)
Cells(Target.Row + 1, "A").Select
End Sub