Delete Rows without any background colour via macro

[Jak]

I would appreciate it if someone could assist me with a macro. I need to delete any row on a spreadsheet that do not have a background colour in any cell.

i.e. row 3 may have no background colour in any cell, while row 4 may have a background colour in "4C". The macro would therefore delete row 3 only. I hope this makes scense.

Any assistance would be welcomed.

Jak

 

[al_b_cnu]

Hi Jak,

This code works on the currently active sheet:

Sub DelRows()
Dim bDel As Boolean
Dim lRowFr As Long, lRowTo As Long, lRow As Long
Dim iCol As Integer, iColFr As Integer, iColTo As Integer

lRowFr = ActiveSheet.UsedRange.Row
lRowTo = lRowFr + ActiveSheet.UsedRange.Rows.Count - 1
iColFr = ActiveSheet.UsedRange.Column
iColTo = iColFr + ActiveSheet.UsedRange.Columns.Count - 1

For lRow = lRowTo To lRowFr Step -1
    bDel = True
    For iCol = iColFr To iColTo
        If Cells(lRow, iCol).Interior.ColorIndex <> xlNone Then
            bDel = False
            Exit For
        End If
    Next iCol
    If bDel = True Then Rows(lRow).Delete shift:=xlUp
Next lRow
End Sub

 

[Jak]

Many thanks al_b_cnu

Just what I needed.

Greatly appreciated.

Jak