Delete row if text is blue

[richn]

I have a spreadsheet with about a thousand rows. 250 of the rows appear in blue text. These are entries I don't need. I'd like to be able to delete these without ctrl clicking each individual one! I kind of have an idea of how to do (logically) it but don't know the syntax - if anyone could help that would be great.

What I think I need to do is: if A1=blue then place a 1 in H1. If A1 is any other colour then place a 0 in H1. I can then sort by column H1 and delete all the 1's.

Any help?

Cheers

Rich

 

[Greg Truby]

A quick and simple little macro would do the trick.

Sub KillTheBlues()
    Dim lngBottom As Long, r As Long
    
    ' Change the "A" to an appropriate column reference
    lngBottom = Range("A65536").End(xlUp).Row
    
    For r = lngBottom To 1 Step -1
        
        ' Change the 1 (column A) to the number of the
        ' column that would have the blue text.
        If Cells(r, 1).Font.ColorIndex = 5 Then    ' blue
            Cells(r, 1).EntireRow.Delete
        End If
    Next r
End Sub

HTH

 

[richn]

thanks a lot - it's easy when you know how!

rich