Deleting an entire row depending on the colour shading present

  • Thread starter Thread starter Vipul Vij
  • Start date Start date
V

Vipul Vij

Hi all,

I need to be able to delete entire rows that have no shading and keep
those that have a specific colouring. Any help would be appreciated.

Regards,

Vipul
 
don't know how many ros and column you have. The code defines an area
bounded by the last items in Row 1 and Column A.

Sub removeshade()

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column

Set myrange = Range(Cells(1, 1), Cells(LastRow, LastCol))

For Each cell In myrange

If cell.Interior.ColorIndex <> xlNone Then
cell.EntireRow.Delete Shift:=xlUp

End If
Next cell

End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

code to shade row then return it to as it was 12
Format Looping 2
Conditional format an entire row based on one cell 3
Copy yellow shaded rows to another worksheet 2
Summing a range depending on cell background colour 3
Apply Alternate Shading to selected rows 2
Alternate Shading for non-bold rows 1
Help with Calender Day colour 2

Back
Top