after pressing enter move selection direction in excel

[pmeghnathi]

A1 cell data entry press enter key move direction A10,after press enter key to move B1, after to B10 pl.help

 

[Micron]

AFAIK, there is no key press events at the worksheet level, so you need to get creative.
You could adapt very complicated code such as this

Capture keypress completion event in a cell in an Excel worksheet

Is there a way with VBA to capture the event after a key has been pressed in an Excel worksheet? There was a similar question answered here: Is there any event that fires when keys are pressed w...

stackoverflow.com

or you could use the OnKey approach as shown here:

Application.onkey not working?

Hi, I am trying to use the WASD keys to move the current cell up,down,left and right however my application.onkey is not working. Public Sub workbook_open(ByVal target As Range)Application.OnKey ("w"), "moveup" Application.OnKey ("a"), "moveleft" Application.OnKey ("s"), "moveright"...

www.mrexcel.com

Note that for the latter, you will need to run the OnKey code at some point - could be workbook activate or open or a command button (button would allow you to cycle the key code on and off while using a sheet). However, you should also run the code that deactivates OnKey at some point, otherwise I suspect it will behave that way for every workbook you open. Again, use a button if you want to turn off the effect before closing the wb, but certainly turn it off (by deactivate or turn off I mean return the Enter key to its default behaviour).

Or you could just skip all the hard work and use mouse or navigation keys.

 

[Candyman8019]

You could try something like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Not Intersect(Target, Range("A:ZZ")) Is Nothing Then

    If Target.Row = 2 Then
        Target.Offset(8, 0).Select
    Else
        Target.Offset(-10, 1).Select
    End If
 End If
 
End Sub

 

[pmeghnathi]

You could try something like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Not Intersect(Target, Range("A:ZZ")) Is Nothing Then

    If Target.Row = 2 Then
        Target.Offset(8, 0).Select
    Else
        Target.Offset(-10, 1).Select
    End If
 End If
 
End Sub

Thanks

 

[smozgur]

Thanks

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.

 

[smozgur]

@pmeghnathi: Please read my previous message for more info and do not mark your feedback post as the solution.