Move selection after Enter Direction

  • Thread starter Thread starter Tonso
  • Start date Start date
T

Tonso

I have a macro that enables me to toggle between moving the selection
down, or to the right, after Enter.

Sub MoveAfterReturn()
If Application.MoveAfterReturnDirection = xlDown Then
Application.MoveAfterReturnDirection = xlToRight
Else
Application.MoveAfterReturnDirection = xlDown
End If
Application.ScreenUpdating = True
End Sub

This works good, but i would like to automate the application of the
macro in a particaular workbook by having it move "right" if the
active cell is in the range E4:M34. If not in that range, it would
move "Down".
How can i accomplish this?

Thank you so much,

Tonso
 
You can use a worksheet_Change event that is associated with a single worksheet.

If you want to try, you right click on the worksheet tab that should have this
behavior and paste this into the code module that appears:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then
Exit Sub 'single cell only!
End If

If Intersect(Target, Me.Range("e4:m34")) Is Nothing Then
'not in E4:M34, so...
'Application.MoveAfterReturnDirection = xlDown
Target.Cells(1).Offset(0, 1).Select
Else
'in E4:M34
'Application.MoveAfterReturnDirection = xlToRight
Target.Cells(1).Offset(1, 0).Select
End If

End Sub

Notice that the application setting is commented out. This doesn't toggle the
setting, it just selects the cell to the right or below.
 
Back
Top