Auto goto after CR

[Mike Gill]

How can i goto to a specified cell after enter.

Michael G.

 

[Chip Pearson]

You can't. You can specify only up, down, left, or right, not a
specific cell.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Mike Gill]

Is it possible with vba.

You can't. You can specify only up, down, left, or right, not a
specific cell.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[KL]

Hi Mike,

The answer is yes. Try putting this into a standard module (e.g. Module1):

Sub ModifyEnter_NumericKeypad()
Application.OnKey "{ENTER}", "SelectCell"
End Sub

Sub ModifyEnter()
Application.OnKey "~", "SelectCell"
End Sub

Sub ReleaseEnterKeys()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Sub SelectCell()
ActiveSheet.Range("A1").Select
End Sub

Regards,
KL

 

[Mike Gill]

Thanks will try.
MG

Hi Mike,

The answer is yes. Try putting this into a standard module (e.g. Module1):

Sub ModifyEnter_NumericKeypad()
Application.OnKey "{ENTER}", "SelectCell"
End Sub

Sub ModifyEnter()
Application.OnKey "~", "SelectCell"
End Sub

Sub ReleaseEnterKeys()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Sub SelectCell()
ActiveSheet.Range("A1").Select
End Sub

Regards,
KL

 

[Ragdyer]

You can specify the next cell to have the focus, therefore allowing a set
"route" for data entry.

See if this old post helps:

http://tinyurl.com/39vzv

 

[Gord Dibben]

Mike

This may be a little easier. Adjust and add more cells as needed.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$2"
Range("C5").Select
Case "$C$5"
Range("E2").Select
Case "$E$2"
Range("E5").Select
End Select
End Sub

This is worksheet event code. Right-click on the sheet tab and "View Code".

Paste the above in there.


Gord Dibben Excel MVP