Automatically Moving from Cell to Cell when Entering Data

[pmeghnathi]

A1 cell value 12345678 (8 any character number) to auto move a2.than a2 any value ENTER hit key enter to move a2 cell continue this one by one 2 column

Move cursor

 

[Oaktree]

Still enter values via TAB instead of ENTER, but right click on your sheet, select "view code", and paste this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row + 1, 1).Select
End Sub

 

[pmeghnathi]

Still enter values via TAB instead of ENTER, but right click on your sheet, select "view code", and paste this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row + 1, 1).Select
End Sub

i do this but a1 cell value typing and hit enter key not move cursor b1 cell. but b1 cell typing value and hit enter key to move cursor a2 is work. A to B not work . but B to A is work

 

[Oaktree]

You said "I do this"... "typing and hit enter key".

You shouldn't be pressing the ENTER key at all. You should only be pressing the TAB key to confirm values when you're done typing them.

When you press the ENTER key to confirm a value, Excel will move to the next cell down. When you press TAB to confirm a value, Excel will move to the next cell to the right. The macro is there to move to column A in the next row down if you press tab after you enter a value into column B.

 

[pmeghnathi]

You said "I do this"... "typing and hit enter key".

You shouldn't be pressing the ENTER key at all. You should only be pressing the TAB key to confirm values when you're done typing them.

When you press the ENTER key to confirm a value, Excel will move to the next cell down. When you press TAB to confirm a value, Excel will move to the next cell to the right. The macro is there to move to column A in the next row down if you press tab after you enter a value into column B.

I want only enter key not use tab key

 

[Oaktree]

Same idea as before, just with different actions for whether you've edited column A or column B:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 1
            Cells(Target.Row, 2).Select
        Case 2
            Cells(Target.Row + 1, 1).Select
    End Select
End Sub