delete row based on criteria of value in two columns

I'm trying to write a vba that will delete a row based on the criteria of two columns. In this case if the value of the two columns is zero (or null) or the value is an error, I want the row to be deleted. I tried the following code, but nothing seemed to happen. Your help is greatly appreciated.

Please Login or Register  to view this content.

The code you provide worked ok, but I made an error in my initial post. The portion of the code that pertains to equal zero = (Range("e" & i).Formula = 0 And Range("f" & i).Formula = 0), should actully be if the cell is blank. Can you assist?

Mike the code seems to stop running at the "End If" statement. Do you know why?

When running the macro the vba editor opens and the "End if" line is highlighted.

Yup, copied it clean (twice). Still get a debug error at "End if".

Still a no go. I'll have to look at it more later. Thanks for your help anyway.

This code works great, although it is slow since the actual sheet I'm running it on has 1600 rows. I still need to add the "Or IsError(Range("e" & i)) ", to make it more fault tolerant. Rather than deleting the rows one at a time, would it be faster to select the rows and then delete them all at once at the end.

I wonder if it would be possible to do a filter one formulas that don't meet this criteria, "Range("e" & i).Value > 0 or Range("f" & i).Value > 0)", that way all the blank rows or error rows would be filtered and a deletion of the selected range could be performed.

This code worked fast, but got hung up on the error rows. The vba error was "runtime error '13' type mismatch". In the example I'm testing is divide by zero error, but it could other errors. The sheet the code is working on is actually referencing another sheet.

I tried this Robert, but it didn't work correctly. The end result shows the correct number of rows, but the results seem random. I only want to keep rows that have values > 0 in columns E & F.

I am using a formula to show "" if a zero is encountered, so it would be if either column E > 0 or F > 0. To answer your question, "either one".

I change my sheet to show errors as "", so the code Mike provided earlier will work for my purpose.

Please Login or Register  to view this content.

[SOLVED]