Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered
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! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered
You start a new thread not bothering to refer to the original so it makes it
difficult to tell what you want. This looks like something I provided...????? -- Don Guillett Microsoft MVP Excel SalesAid Software "Robin" wrote in message ... 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! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Automatically Increment numerically ordered
I agree. Here is the original question.
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. 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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatically Increment numerically ordered rows | Excel Discussion (Misc queries) | |||
Automatically Increment Row Numbers | New Users to Excel | |||
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 |