macro to insert rows b/t selected data!!

[VTdude12]

Hi all. This is my first post to this forum. I am looking forward to hopefully learning something and contributing to the group as well.

My question is this:

I have a need for a macro that will insert anywhere from 1-5 blanks rows b/t selected data in a spreadsheet.

The code I have written so far works... sort of. Ha

The problem is that my current attempt inserts the # of rows between ALL data and not the selection. I do not know the call to make this work so any info would be much appreciated.

Just to let you all know I want the user to be able to enter the # of rows they need into a message/input box. As of now I have it setup as a userform with a textbox, but I am flexible with that.


Code follows:

Please Login or Register  to view this content.

[StephenR]

I have a need for a macro that will insert anywhere from 1-5 blanks rows b/t selected data in a spreadsheet.

Not sure what you mean by this. Does it matter how many rows are selected? Do you mean insert the given number of rows between each pair of rows in the selection?

[VBA Noob]

Here's a simple way

Please Login or Register  to view this content.

VBA Noob

[VTdude12]

Stephen: That is exactly what I need. Sorry if I didnt explain it very well. Let me try again.

I want to the user to be able to select between 1-5. And depending on that entry the macro will insert the corresponding number of blank rows between each row of the current selection.

ie. 5 rows of data in worksheet
aaaaa
bbbbb
ccccc
ddddd
eeeee

*The user has the first 3 selected and runs the macro to insert 1 row. The output should be something like this:

aaaaa

bbbbb

ccccc

ddddd
eeeee


Hope that somewhat clears it up! Thanks again all!

[StephenR]

Building on VBA Noob's suggestion, I think this works:

Please Login or Register  to view this content.