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 cursor 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