Can anyone help with the following macro?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

stanleysi - 24 May 2006 08:09 GMT

Hi all,

Think this should be quite simple for some the guru's here :D

What I have is this

A B C D E
1 X
2 Y Y Y
3 Y Y Y
4 Z
5 M M M

I need the macro to insert a row between A3 and A4 so that the sheet
will look like this when run
A B C D E
1 (blank row)
2 X
3 Y Y Y
4 Y Y Y
5 (blank row)
6 Z
7 M M M

Thanks

Signature

stanleysi

Reply to this Message

Ivan Raiminius - 24 May 2006 09:16 GMT

Hi,

you inserted two rows in your example, but need to insert one row?

Depending on what condition?

Regards,
Ivan

Reply to this Message

stanleysi - 24 May 2006 10:44 GMT

Hi,

Just to clarify, yes there should be two rows inserted. What the macr
needs to do is to check the values in the 2nd column and if it is "
(empty) then insert a row ABOVE that.

Hope that clarifies

Thanks

Sta

Reply to this Message

Ivan Raiminius - 24 May 2006 11:51 GMT

Hi Stan,

Sub InsertRow()
intersect(range("B:B"),activesheet.usedrange).SpecialCells(xlCellTypeBlanks).entirerow.insert
end sub

Regards,
Ivan

Reply to this Message