Comparing RGB Values

[kevinsamuelabraham]

Hi ,

I am Kevin, a newbie both to the forum and Excel Macro coding. I work with Excel 2007 on Windows XP.

I have a worksheet with conditional formatting. It highlights cells with duplicate values with RED as the background color. Once the data has been entered, I will have to perform certain processing for the duplicate records.

To do this I am parsing all the cells from left to right and top to bottom. While doing that, I would like to check the background color of the cell. If the background color is (255,0,0) then I would like to do some processing ...

Something to the effect of

Set sh3 = Sheets("Assignments")
If (sh3.Cells(row, column).Interior.Color = RGB(255, 0, 0)) Then
<Processing>
End If

but this doesn't seem to work. So could you please let me know how to alter this funtion to make it work, or if there is any other funtion that I should be using to get this task completed.

Please let me know if you need further clarification on the problem.

I look forward to hearing from people on this and I really appreciate you taking time to help me out with this.

Thanks and I hope you had a great weekend !


Cheers,
KeV !

 

[mikerickson]

If you test the .Interior.Color of a cell, it will not detect a cell whose color has been set by Conditional Formatting.

It would be better to test for the condition that set the format.

 

[kevinsamuelabraham]

The conditional formatting is to find and highlight duplicates column wise. I thought it would take quite a bit of coding effort to do that and hence used conditional formatting to highlight them..

Any other way/functions in which I could get to background color set by Conditional Formatting ?
If I can never get to the background color then would I be able to use other methods like changing the font type/size or anything of that sort ?

Thank you so much for such a quick reply !


Cheers,
KeV !

 

[kevinsamuelabraham]

Bouncy Bounce

 

[Sektor]

... sh3.Cells(row, column).Interior.ColorIndex = 3 ...

 

[mikerickson]

instead of

If (sh3.Cells(row, column).Interior.Color = RGB(255, 0, 0)) Then
    Rem code
End If

use

With sh3
    If Application.CountIf(.Columns(column), .Cells(row, column)) > 1 Then
        Rem code
    End If
End With

Also row and column are risky choices for variable names, since they are also names of properties of a worksheet.

 

[kevinsamuelabraham]

My priorities got a little shifted and hence I couldn't get to this till now.

That single line of code, worked like a charm sir ! Thank you so very much

I although I still do not understand the semantics of it, it was just what I was looking for !

Thank you very much for your time and sharing your expertise


Cheers,
KeV !