insert rows based on number in cell and copy the data down into the new rows

I was able to insert blank rows with a very helpful macro from this site but I would like to copy same info from the original row into the blank rows - If the number is 4, I want to end up with 4 total rows

I used this and got 4 blank rows - when what I really want is 3 additional and I would like them to have the same info.

Please Login or Register  to view this content.

pziefle,

Welcome to the Excel Forum.

To get the most precise answer, it is best to upload/attach a sample workbook (sensitive data scrubbed/removed/changed) that contains an example of your raw data on one worksheet, and on another worksheet your desired results.

The structure and data types of the sample workbook must exactly duplicate the real workbook. Include a clear and explicit explanation of your requirements.

To attach your workbook, scroll down and click on the Go Advanced button, then scroll down and click on the Manage Attachments button.

efle,

Thanks for the workbook.

You did explain what you want to do, but, the below macro may have to be changed in case you wanted to split the value, say 4, where the 4 total rows will each display the number 1.

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the InsertRows macro.

pziefle,

That worked for the most part but it did not copy the zip code column into the added rows.

In the workbook that you attached, the Zip Code's were in column I.

And, the macro worked correctly with your attached workbook.

Please attach the workbook where the macro did not work correctly.

pziefle,

It is always better to work with the actual raw data setup.

With your raw data in columns A thru J, and title route number is in cell A1.

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the InsertRowsV2 macro.

pziefle,

Thanks for the feedback.

You are very welcome. Glad I could help.

And, come back anytime.

eyeman96,

In the future:

Please do not post your questions in threads started by others - - this is known as thread hijacking.

Always start a new thread for your questions and, if you think it helps, provide a link to any other thread as a reference.

Start a new thread for your question and be sure to give it a search friendly title that accurately describes your need.

After you create your own New Post, then send me a Private Message with a link to your New Post, and, I will have a look.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Please Login or Register  to view this content.

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm

Then run the InsertRows_eyeman96 macro.

eyeman96,

You are very welcome. Glad I could help.