Deleting blanks rows based on multiple criteria
 

Below is a macro used to delete the entire row if a the cell in the
specified column is blank.

Can anyone suggest a way to change this macro so that it can be used to
delete a row if the cells in two different columns are both blank?

ie. If any cells are in the same row of column B and E are blank then
delete that row.

The code I have used for a single column is this:

Sub DeleteRowOnCell()

On Error Resume Next
Columns("E:E").Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow .Delete
ActiveSheet.UsedRange

End Sub

Thanks in advance!!


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=565462

Deleting blanks rows based on multiple criteria
 

Sorry guys I have answered my own question:

Sub DeleteRows()
Dim theRange As Range
Dim lastRow&, firstRow&, x&
Set theRange = ActiveSheet.UsedRange
lastRow = theRange.Cells(theRange.Cells.Count).Row
firstRow = theRange.Cells(1).Row
For x = lastRow To firstRow Step -1
If Cells(x, 2) = "" And Cells(x, 5) = "" Then
Rows(x).Delete
End If
Next
End Sub


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=565462