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]


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=383736

Just add this line

ActiveCell.Offset(1, 0).Select

after your

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


HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=383736

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

Any other ideas

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=38373

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


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=383736