Automatically Insert a New Row

Q45 · Feb 21st, 2002, 08:28 PM

How can I automatically insert a row directly underneath a cell that I type something in?
There are a couple hundred rows in the sheet but I need to add a new row directly underneath a cell that I just typed in, in the middle of the sheet.
Any suggestions?

[ This Message was edited by: Q45 on 2002-02-21 19:46 ]

NateO · Feb 21st, 2002, 08:54 PM

Q, maybe an event procedure like the following will work:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
activecell.offset(1,0).select
Selection.EntireRow.insert
End Sub

Put it in a sheet module, right click on sheet, select view code and paste it in there.

HTH, Nate

[ This Message was edited by: NateO on 2002-02-21 19:58 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 21st, 2002, 08:28 PM	#1
Q45 New Member Join Date: Feb 2002 Posts: 32	How can I automatically insert a row directly underneath a cell that I type something in? There are a couple hundred rows in the sheet but I need to add a new row directly underneath a cell that I just typed in, in the middle of the sheet. Any suggestions? [ This Message was edited by: Q45 on 2002-02-21 19:46 ]

Feb 21st, 2002, 08:54 PM	#2
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	Q, maybe an event procedure like the following will work: Private Sub Worksheet_Change(ByVal Target As Excel.Range) activecell.offset(1,0).select Selection.EntireRow.insert End Sub Put it in a sheet module, right click on sheet, select view code and paste it in there. HTH, Nate [ This Message was edited by: NateO on 2002-02-21 19:58 ]