deleting 2 rows
 

Hello,

I wonder how to delete 2 rows if there is zero value in the first row?
I know how to delete one row with zero value but I do not know how to
delete to rows.
There are many rows with values. If there is a row with zero value I want
to delete the row with zero value and next row with whatever value.
I have several thousands rows.

example
A
1
5
0 DELETE
2 DELETE
2
2
0 DELETE
5 DELETE

Thank you very much in advance for help

Tomek

deleting 2 rows
 

Use the resize method

activecell.Resize(2).EntireRow.delete

--
Regards,
Tom Ogilvy

"Tomek" wrote in message
.. .
Hello,

I wonder how to delete 2 rows if there is zero value in the first row?
I know how to delete one row with zero value but I do not know how to
delete to rows.
There are many rows with values. If there is a row with zero value I want
to delete the row with zero value and next row with whatever value.
I have several thousands rows.

example
A
1
5
0 DELETE
2 DELETE
2
2
0 DELETE
5 DELETE

Thank you very much in advance for help

Tomek

deleting 2 rows
 

Dnia Sat, 29 Jan 2005 12:18:50 -0500, Tom Ogilvy napisa³(a):

Use the resize method

activecell.Resize(2).EntireRow.delete


Thank you very much , it really works!

Tomek