Set Enter Key movement in a particular sheet

R

Rao Ratan Singh

Hi all,
I want to set direction for after pressing enter in a particular worksheet.
But when i open new or another files this should work as default as previous.

Is there any way.

Regards

Rao Ratan Singh
 
J

JLatham

For simplicity's sake, we will keep all the code in one area: the Workbook's
code module. To put the code below into that area right-click on the Excel
icon just to the left of the word File in the main Excel menu toolbar and
choose [View Code] from the list that pops up. Copy and paste the code below
into it. Change the name of the special sheet within the two sections of
code where it is used.

you can use any of these as direction indicators:
xlToLeft
xlToRight
xlUp
xlDown

Now for the code:

Private Sub Workbook_Activate()
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
End If
End Sub

Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = xlDown ' back to default
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
Else
Application.MoveAfterReturnDirection = xlDown ' for all other sheets
End If
End Sub
 
R

Rao Ratan Singh

Sir,
Thank lot for response. Bu i dont have good knowlege of macro and code, so
please me say how to put code in detail manner.



JLatham said:
For simplicity's sake, we will keep all the code in one area: the Workbook's
code module. To put the code below into that area right-click on the Excel
icon just to the left of the word File in the main Excel menu toolbar and
choose [View Code] from the list that pops up. Copy and paste the code below
into it. Change the name of the special sheet within the two sections of
code where it is used.

you can use any of these as direction indicators:
xlToLeft
xlToRight
xlUp
xlDown

Now for the code:

Private Sub Workbook_Activate()
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
End If
End Sub

Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = xlDown ' back to default
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
Else
Application.MoveAfterReturnDirection = xlDown ' for all other sheets
End If
End Sub


Rao Ratan Singh said:
Hi all,
I want to set direction for after pressing enter in a particular worksheet.
But when i open new or another files this should work as default as previous.

Is there any way.

Regards

Rao Ratan Singh
 
J

JLatham

Instructions for Excel 97/2000/XP (2002)/2003 [NOT for Excel 2007]
Open the workbook that the code needs to go into.
RIGHT-click on the Excel icon to the left of the word File in the Excel menu
toolbar.
Choose [View Code] from the list that will appear when you do that.
Copy the code I provided in the earlier message and paste it into the code
module presented to you (large white area in the VB Editor).
Close the VB Editor.
Save your workbook.
Close and open your workbook, and it should operate well for you.

If you would rather, you may send me a copy of your workbook as an email
attachment to (remove spaces from this address)
HelpFrom @ jlathamsite.com
and I will put the code into it, test it and return it to you.


Rao Ratan Singh said:
Sir,
Thank lot for response. Bu i dont have good knowlege of macro and code, so
please me say how to put code in detail manner.



JLatham said:
For simplicity's sake, we will keep all the code in one area: the Workbook's
code module. To put the code below into that area right-click on the Excel
icon just to the left of the word File in the main Excel menu toolbar and
choose [View Code] from the list that pops up. Copy and paste the code below
into it. Change the name of the special sheet within the two sections of
code where it is used.

you can use any of these as direction indicators:
xlToLeft
xlToRight
xlUp
xlDown

Now for the code:

Private Sub Workbook_Activate()
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
End If
End Sub

Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = xlDown ' back to default
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "SpecialSheetName" Then ' change sheet name as
required
Application.MoveAfterReturnDirection = xlToRight ' for this sheet only
Else
Application.MoveAfterReturnDirection = xlDown ' for all other sheets
End If
End Sub


Rao Ratan Singh said:
Hi all,
I want to set direction for after pressing enter in a particular worksheet.
But when i open new or another files this should work as default as previous.

Is there any way.

Regards

Rao Ratan Singh
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top