Deleting blanks rows based on multiple criteria

  • Thread starter Thread starter Pedros
  • Start date Start date
P

Pedros

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!!
 
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
 
Back
Top