Need to insert row with enter key

[Guest]

My boss is not very computer literate and in order for him to use the
spreadsheet I created for tracking jobs, he "must" be able to insert a row by
hitting the enter key. Basically, he wants to just type on a line, hit
enter, and be on the next line to type something -- like Word does. Any
ideas??

 

[Don Guillett]

piece of cake. Just put it in a worksheet_change event. Right click sheet
tab>view code>insert this>modify to suit>SAVE . Now when you change
something in col A a row will be inserted moving that data down one leaving
you the same row on which to type again.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Or Target.Column <> 1 Then Exit Sub
Rows(Target.Row).Insert

End Sub

 

[Guest]

If you mean a new line in the same cell tell him to use Alt + Enter otherwise
enter should go to the cell under is it is selected under tools>options>edit
and move selection after enter down

Regards,

Peo Sjoblom

 

[Guest]

I'm not a VBS coder but understand inserting your code. Could you tell me
what exactly I need to modify in that code to make it work with mine?

 

[Don Guillett]

I thought it was pretty self-explanatory. Read it again and try it....

 

[Guest]

Didn't work for me yesterday so thought I missed something. Working today
though! Thanks for your help.

 

[Guest]

I take it back, it's not working correctly. Pressing enter causes it to
instert over 200 rows instead of just one. I pasted your formula exactly as
you wrote it. Can you help?

 

[Don Guillett]

I just re-tested in xl2002 with the code in a worksheet module (not a
regular module and not ThisWorkbook). When I enter anything in col A a row
is inserted.......