cursor movement after data entered

[Harvey Waxman]

Is there any way to have the cursor move after data is entered depending on the
workbook or the sheet? I have some sheets where movement is best along a row
and others where it is better down the column. Or maybe a button in the menu
that can easily toggle this 'right' 'left' 'down' 'up' ?

 

[Bernard REY]

Harvey Waxman wrote :

Is there any way to have the cursor move after data is entered depending on
the workbook or the sheet? I have some sheets where movement is best along
a row and others where it is better down the column.
Or maybe a button in the menu that can easily toggle this 'right' 'left'
'down' 'up' ?

You can perform this through a couple of VBA lines, to be pasted in the
Sheet Code Sheet:

Dim OldSetting As Long

Private Sub Worksheet_Activate()
OldSetting = Application.MoveAfterReturnDirection
Application.MoveAfterReturnDirection = xlToRight 'or xlDown
End Sub

Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = OldSetting
End Sub

This should do the job...

 

[Harvey Waxman]

You can perform this through a couple of VBA lines, to be pasted in the
Sheet Code Sheet:

Thanks