inserting rows automatically?

[[email protected]]

hi,

Does any one know how to insert X number of rows after each rows?

ie, want to insert 5 rows after row 1,another 10 rows after row 2...?

eg. row 1: holiday inn
row2: hyatt
row3: ritz

and i want to insert 5 rows after row 1, another 5 after row 2 etc, so
that i can write down places names that have those hotels in the new
rows:

row1:holiday inn
hk
uk
us
japan
norway
row6:hyatt
uk
hawaii
.... etc.

How can you do it?

Please help!
Elaine

[Don Guillett]

this should put a smile on your face
Sub insert5rows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Resize(5).Insert
Next
End Sub

--
Don Guillett
SalesAid Software
[email protected]
<[email protected]> wrote in message
news:[email protected]...
> hi,
>
> Does any one know how to insert X number of rows after each rows?
>
> ie, want to insert 5 rows after row 1,another 10 rows after row 2...?
>
> eg. row 1: holiday inn
> row2: hyatt
> row3: ritz
>
> and i want to insert 5 rows after row 1, another 5 after row 2 etc, so
> that i can write down places names that have those hotels in the new
> rows:
>
> row1:holiday inn
> hk
> uk
> us
> japan
> norway
> row6:hyatt
> uk
> hawaii
> ... etc.
>
> How can you do it?
>
> Please help!
> Elaine
>

[[email protected]]

oh my god!!!
That did put a smile on my face!!!
Thank you so much!
Elaine


Don Guillett wrote:
> this should put a smile on your face
> Sub insert5rows()
> For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
> Rows(i).Resize(5).Insert
> Next
> End Sub
>
> --
> Don Guillett
> SalesAid Software
> [email protected]
> <[email protected]> wrote in message
> news:[email protected]...
> > hi,
> >
> > Does any one know how to insert X number of rows after each rows?
> >
> > ie, want to insert 5 rows after row 1,another 10 rows after row 2...?
> >
> > eg. row 1: holiday inn
> > row2: hyatt
> > row3: ritz
> >
> > and i want to insert 5 rows after row 1, another 5 after row 2 etc, so
> > that i can write down places names that have those hotels in the new
> > rows:
> >
> > row1:holiday inn
> > hk
> > uk
> > us
> > japan
> > norway
> > row6:hyatt
> > uk
> > hawaii
> > ... etc.
> >
> > How can you do it?
> >
> > Please help!
> > Elaine
> >

[Don Guillett]

glad to make you smile

--
Don Guillett
SalesAid Software
[email protected]
<[email protected]> wrote in message
news:[email protected]...
> oh my god!!!
> That did put a smile on my face!!!
> Thank you so much!
> Elaine
>
>
> Don Guillett wrote:
>> this should put a smile on your face
>> Sub insert5rows()
>> For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
>> Rows(i).Resize(5).Insert
>> Next
>> End Sub
>>
>> --
>> Don Guillett
>> SalesAid Software
>> [email protected]
>> <[email protected]> wrote in message
>> news:[email protected]...
>> > hi,
>> >
>> > Does any one know how to insert X number of rows after each rows?
>> >
>> > ie, want to insert 5 rows after row 1,another 10 rows after row 2...?
>> >
>> > eg. row 1: holiday inn
>> > row2: hyatt
>> > row3: ritz
>> >
>> > and i want to insert 5 rows after row 1, another 5 after row 2 etc, so
>> > that i can write down places names that have those hotels in the new
>> > rows:
>> >
>> > row1:holiday inn
>> > hk
>> > uk
>> > us
>> > japan
>> > norway
>> > row6:hyatt
>> > uk
>> > hawaii
>> > ... etc.
>> >
>> > How can you do it?
>> >
>> > Please help!
>> > Elaine
>> >
>