VBA code for cursor movement without leaving scroll area

[mikeburg]

I have the following code to run using the control + enter. It works
great but when I add the vba code to move the cursor to the right, it
goes beyond the scroll area range I have set up (instead of going to
the next row & 1st cell in the scroll area).

Anyone got any ideas how to move the cursor without it leaving the
scroll area?

In other words, when I hit the conrol + Enter, I want the data from the
cell above to copy to the active cell & move the cursor to the next cell
without having to hit enter again.

Thanks,

mikeburg


[VBA]
Sub WTurnOnCtrlEnter()
'Turns on control + enter
Application.OnKey "^~", "YDefaultMacro"
End Sub
Sub YDefaultMacro()
ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0)
End Sub
Sub XTurnOffCtrlEnter()
'Turns off control + enter
Application.OnKey "^~"
End Sub
[\VBA]

 

[bhofsetz]

Just add this line

ActiveCell.Offset(1, 0).Select

after your

ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0)


HTH

 

[mikeburg]

ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0) carries the curso
outside the set scroll area.

Any other ideas

 

[bhofsetz]

What is your scroll area?

The way I read you post is that you have the cursor in cell A2 and when
you hit enter you want the value from cell A1 to be copied to A2 and
then the cursor to move to A3.

If that is the case this should work.

Sub YDefaultMacro()
ActiveCell.Offset(0, 0) = ActiveCell.Offset(-1, 0)
ActiveCell.Offset(1, 0).Select
End Sub