Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered rows
I have code that automatically copies a row and then inserts new rows in a
worksheet that are copies of that row, based on a number entered by a user through an InputBox. The first cell in the row contains a number that needs to increment as the new rows are inserted. In other words, in the row that is copied there is a cell with a value of '1' and I need that value to be incremented for each new row that is inserted. So, if Excel inserts ten additional rows, that number should be incremented from '1' in the copied row all the way to '11' in the newly inserted rows. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered rows
Post your code...
-- HTH... Jim Thomlinson "Robin" wrote: I have code that automatically copies a row and then inserts new rows in a worksheet that are copies of that row, based on a number entered by a user through an InputBox. The first cell in the row contains a number that needs to increment as the new rows are inserted. In other words, in the row that is copied there is a cell with a value of '1' and I need that value to be incremented for each new row that is inserted. So, if Excel inserts ten additional rows, that number should be incremented from '1' in the copied row all the way to '11' in the newly inserted rows. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered rows
Suppose lngRow is the row number where a row is to inserted
lngRow = 5 Rows(lngRow).Insert Rows(lngRow).Range("A1") = Rows(lngrow - 1).Range("A1") + 1 If this post helps click Yes --------------- Jacob Skaria "Robin" wrote: I have code that automatically copies a row and then inserts new rows in a worksheet that are copies of that row, based on a number entered by a user through an InputBox. The first cell in the row contains a number that needs to increment as the new rows are inserted. In other words, in the row that is copied there is a cell with a value of '1' and I need that value to be incremented for each new row that is inserted. So, if Excel inserts ten additional rows, that number should be incremented from '1' in the copied row all the way to '11' in the newly inserted rows. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered rows
Jim here is the code
Here is the code that copies and inserts the rows: Sub copyrows() numrows = InputBox("Number of rows") 'Rows(ActiveCell.Row).Copy ActiveCell.Resize(numrows) Rows(ActiveCell.Row).Copy ActiveCell.Resize(numrows).Insert Application.CutCopyMode = False End Sub Thanks! "Jim Thomlinson" wrote: Post your code... -- HTH... Jim Thomlinson "Robin" wrote: I have code that automatically copies a row and then inserts new rows in a worksheet that are copies of that row, based on a number entered by a user through an InputBox. The first cell in the row contains a number that needs to increment as the new rows are inserted. In other words, in the row that is copied there is a cell with a value of '1' and I need that value to be incremented for each new row that is inserted. So, if Excel inserts ten additional rows, that number should be incremented from '1' in the copied row all the way to '11' in the newly inserted rows. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically Increment Row Numbers | New Users to Excel | |||
Sorting rows left to right numerically | Excel Worksheet Functions | |||
automatically increment y-axis daily | Charts and Charting in Excel | |||
automatically increment field by one | Excel Discussion (Misc queries) | |||
increment cell value automatically | Excel Worksheet Functions |