Log In
Register
Home
July 29, 2013
Offline
email = Application.match("email", Range("1:1"), 0)
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For counter3 = finalrow To 1 Step -1
If Cells(counter3, email).Interior.ColorIndex <> RGB(255, 0, 0) Then
Rows(counter3).Delete
End If
Next counter3
See Answer
October 5, 2010
Offline
Hi Bob,
Use DisplayFormat.Interior.Color to get the color set by CF e.g.
Debug.Print Range("A1").DisplayFormat.Interior.Color
see attached file for some examples with CF rules set.
Regards
Phil
July 29, 2013
Offline
Thanks very much Phil. If you don't mind, can you please explain a bit about what "debug.print" is used for? I have tried to read about and understand that but I just cannot seem to figure it out.
Regards,
Bob Kaplan
October 5, 2010
Offline
Hi Bob,
Debug.Print prints information to the Immediate Window in the VBA Editor/Debugger. So Debug.Print Range("A1").DisplayFormat.Interior.Color prints the value of the DisplayFormat Interior Color of A1.
You can read about debugging and Debug.Print here
Regards
Phil
July 29, 2013
Offline
Hi Phil,
I just cannot get this to work. Maybe, I didn't input your suggestion correctly? When I run this macro it deletes ALL rows regardless of the color of the cell in column #3.
Can you please review and let me know where I'm going wrong?
Thanks,
Bob
October 5, 2010
Offline
Hi Bob,
Please attach your file for me to check.
Thanks
Phil
July 29, 2013
Offline
Whoops....I meant to. Here it is.
Trusted Members
December 20, 2019
Offline
Just had a quick check and i think it is a combination of missing the displayformat & using colorindex rather than color
This deletes the red cells
Cells(counter3, email).DisplayFormat.Interior.Color = RGB(255, 0, 0)
but you had
Cells(counter3, email).Interior.ColorIndex = RGB(255, 0, 0)
Answers Post
1 Guest(s)
