software

Have a spread sheet with several columns(14).
Would like be able to hit a key (i.e. Enter) to return to next row and back
to column #1.

thanks,

L.

I was thinking of a worksheet change event but this would only work if
you made a change in a cell so how about a right click event
when the user right clicks on the mouse he will be returned to column A
one row down

this code goes into the worksheet module

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Union(Range(quot;$A:$Nquot;), Target).Address = Range(quot;$A:$Nquot;).Address Then

Application.SendKeys quot;{home}quot;
ActiveCell.Offset(1, 0).Range(quot;A1quot;).Select
Cancel = True
End If
End Sub--
davesexcel------------------------------------------------------------------------
davesexcel's Profile: www.excelforum.com/member.php...oamp;userid=31708
View this thread: www.excelforum.com/showthread...hreadid=538718create a command button and put this code in that
Private Sub CommandButton1_Click()
Cells((ActiveCell.Row) 1, quot;aquot;).Select
End Sub
try this.
quot;L...quot; gt; wrote in message
...
gt; Have a spread sheet with several columns(14).
gt; Would like be able to hit a key (i.e. Enter) to return to next row and
gt; back to column #1.
gt;
gt; thanks,
gt;
gt; L.
gt;
gt;
Hi L....,

So this is where you came after forsaking excel.setup.

You can use Sheet protection, or you can
use a Selection Event macro.

Worksheet_SelectionChange to prevent entry past a column
www.mvps.org/dmcritchie/excel/event.htm#ws_sc
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: www.mvps.org/dmcritchie/excel/excel.htm
Search Page: www.mvps.org/dmcritchie/excel/search.htm

quot;davesexcelquot; gt; wrote in message
...
gt;
gt; I was thinking of a worksheet change event but this would only work if
gt; you made a change in a cell so how about a right click event
gt; when the user right clicks on the mouse he will be returned to column A
gt; one row down
gt;
gt; this code goes into the worksheet module
gt;
gt; Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
gt; Boolean)
gt; If Union(Range(quot;$A:$Nquot;), Target).Address = Range(quot;$A:$Nquot;).Address Then
gt;
gt; Application.SendKeys quot;{home}quot;
gt; ActiveCell.Offset(1, 0).Range(quot;A1quot;).Select
gt; Cancel = True
gt; End If
gt; End Sub
gt;
gt;
gt; --
gt; davesexcel
gt;
gt;
gt; ------------------------------------------------------------------------
gt; davesexcel's Profile: www.excelforum.com/member.php...oamp;userid=31708
gt; View this thread: www.excelforum.com/showthread...hreadid=538718
gt;

Thanks for the suggestions.

L.

quot;R..VENKATARAMANquot; gt; wrote in message
...
gt; create a command button and put this code in that
gt; Private Sub CommandButton1_Click()
gt; Cells((ActiveCell.Row) 1, quot;aquot;).Select
gt; End Sub
gt; try this.
gt;
gt;
gt;
gt; quot;L...quot; gt; wrote in message
gt; ...
gt;gt; Have a spread sheet with several columns(14).
gt;gt; Would like be able to hit a key (i.e. Enter) to return to next row and
gt;gt; back to column #1.
gt;gt;
gt;gt; thanks,
gt;gt;
gt;gt; L.
gt;gt;
gt;gt;
gt;
gt;