display message box when cell color is red

[kiwikiki718]

I have a cell with conditional formatting to turn red when a certain condition is met. is there a VBA code that will display a message box stating duplicate based on a cell color? so what I need is when a cell turns red, a message box to appear showing duplicate.

here is the code I have but it does not seem to work

Sub Duplicate_Class() 'Duplicate Check'
Dim ws As Worksheet
Set ws = Sheets("Request")
If ws.Range("C8").Interior.Color = RGB(255, 0, 0) Then
MsgBox "Duplicate class!"
End If
End Sub

 

[Joe4]

Rather than trying to work off of color changes by Conditional Formatting, which is not that easy, why not just use the same condition you are using for Conditional Formatting in VBA code?

If you put it in a Worksheet_Change event procedure, the code will automatically run when certain cells are manually updated.
If you need help with this code, please provide the following:
- The range of your data
- The Conditional Formatting rule
- How data is changed that should trigger this to run (i.e. what cells are being updated and how)

 

[MickG]

Try:-

Sub Duplicate_Class() 'Duplicate Check'
 Dim ws As Worksheet
 Set ws = Sheets("Request")
 If ws.Range("C8[B][COLOR=#FF0000]").DisplayFormat[/COLOR][/B].Interior.Color = RGB(255, 0, 0) Then
 MsgBox "Duplicate class!"
 End If
 End Sub

 

[Joe4]

Just note that if you do it in a normal procedure like that, it won't happen automatically. You will need to manually call and run the code.

 

[steve the fish]

Surely the conditional formatting itself is enough. Why the need for the message box? Isnt that the purpose of conditional formatting?