Insert rows for multiple selected rows

[JN12345]

Hello all,

Can someone modify this code? It does not insert the specified rows in the input box for each selected row, just for one.

Please Login or Register  to view this content.

Best,
JN

[mjr veverka]

1. ... for each selected row ...
2. Dim rowcount As Integer
3. zeilenanzahl = InputBox ...
4. Cancel = True

1. Do you want to insert rows in the selected range, or starting from the active cell ? These are two different things.
If you select the range from "A4" to "A1" the active cell will be "A4", if from "A1" to "A4" the active cell will be "A1".
2. Where is "rowcount" calculated ? No calculations.
3. Where is the "zeilenanzahl" declaration and what for is it ?
4. Where is it from ?

Try:
(rows will be inserted starting from the active cell - two variants)

Please Login or Register  to view this content.

[JN12345]

Hello Porucha,

Thank you for your reply. I really appreciate it. I'll try your code asap.

Unfortunately, when I translated the code I made a typo, sorry for that. The code looks actually like this:

Please Login or Register  to view this content.

This code inserts the specified amount of rows after a selected cell. It works perfectly fine. However, I need a bit something else.
1. I would like to select several cells in column A at the same time (strg + select). Those cells can be anywhere in column A, e.g. A21, A34, A45 and so on
2. After selecting the cells I would like to insert after each selected cell a specific amount of rows. The number of rows I would put into the message box. As mentioned before, with the code above I can only insert rows after one selected cell, which would make my doing very time consuming. I read that "activecell" can only be just one row. But is there a workaround?

Let me know if you need further clarifications.

Best,
JN

[mjr veverka]

Please Login or Register  to view this content.

1b. ... to select several cells ... at the same time ...
2. After selecting the cells... to insert after ... selected cell a specific amount of rows ...

1a,b.
How do you want to do this with this procedure ?
If you select some cells, two ... three ... four cells etc. and then you double-click, then you haven't multiple-selected cells but only one-selected cell, the one you double click. One action excludes this other action.

2. Inserting rows starting from the first cell under the active cell:

Please Login or Register  to view this content.

[JN12345]

Ok, thank you. I understand that it only works with one selected cell. But is there a workaround to insert the cells right after all selected cells?

In the example below I would like to insert the rows I specified in the input box for all highlighted cells and not only for "UT20". Is this possible with vba?

Untitled.png

[mjr veverka]

Using the menu from the right mouse button:

1. ThisWorkbook module

Please Login or Register  to view this content.

2. Standard module, Module1:

Please Login or Register  to view this content.