Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically adds a row
Is it possible to create a program that will automatically add a row above
the row you are entering information on so that each row of info keeps moving downwards? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically adds a row
Right click the sheet tabView code and Paste the below code...and try
entering values in Column A...Adjust to suit...Try and feedback Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Rows(Target.Row).Insert: Target.Offset(-1, 0).Select End If Application.EnableEvents = True End Sub If this post helps click Yes --------------- Jacob Skaria "Tkaklita" wrote: Is it possible to create a program that will automatically add a row above the row you are entering information on so that each row of info keeps moving downwards? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically adds a row
This works fantastic!!! Thank you very much.
"Jacob Skaria" wrote: Right click the sheet tabView code and Paste the below code...and try entering values in Column A...Adjust to suit...Try and feedback Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Rows(Target.Row).Insert: Target.Offset(-1, 0).Select End If Application.EnableEvents = True End Sub If this post helps click Yes --------------- Jacob Skaria "Tkaklita" wrote: Is it possible to create a program that will automatically add a row above the row you are entering information on so that each row of info keeps moving downwards? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatically adds a row
This was fabulous, thank you so much for posting it.
Can anyone guide me on what would need to be added to the code to retain the formatting (merged cells) and the formulas in some of the cells (If, thens) What a great community this is! "Jacob Skaria" wrote: Right click the sheet tabView code and Paste the below code...and try entering values in Column A...Adjust to suit...Try and feedback Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Rows(Target.Row).Insert: Target.Offset(-1, 0).Select End If Application.EnableEvents = True End Sub If this post helps click Yes --------------- Jacob Skaria "Tkaklita" wrote: Is it possible to create a program that will automatically add a row above the row you are entering information on so that each row of info keeps moving downwards? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
My worksheet automatically adds a fill color when I enter text. | Excel Discussion (Misc queries) | |||
My spreadsheet in some cases automatically adds a row below how? | Excel Discussion (Misc queries) | |||
How to set up a formula that it adds value on a certain date | Excel Discussion (Misc queries) | |||
Adds ok but try to sum() returns 0 | Excel Worksheet Functions | |||
pop-up adds | Excel Programming |