Changing Cell color?

**xmux** · 03-26-2009, 04:37 AM

Hi,

I have a code that check the String on the cell! But if it is wrong i wanna make the cell Red colored?

If Selection.Cells(x, 14) <> "A" And Selection.Cells(x, 14) <> "B" And Selection.Cells(x, 14) <> "C" And Selection.Cells(x, 14) <> "D" And Selection.Cells(x, 14) <> "L" And Selection.Cells(x, 14) <> "N" And Selection.Cells(x, 14) <> "S" And Selection.Cells(x, 14) <> "T" Then
    MsgBox "Type is False! You have to change it! " & "Place: Selected Row: " & x & " Column: 14 (N)"
    GoTo Einde
    End If

Thanks

**royUK** · 03-26-2009, 04:42 AM

Why not use Conditional Formatting?

**xmux** · 03-26-2009, 04:45 AM

Originally Posted by royUK

Why not use Conditional Formatting?

What do u mean??

Anyway i found it!
ActiveCell.Interior.ColorIndex = 3 (For RED)

**xmux** · 03-26-2009, 05:20 AM

Sorry it is not working like that... I dont want it with the conditional Formatting because people can copy paste on this document.. than the conditional Formatting goes away...

So i need a macro for it? Anyone has any idea??

**royUK** · 03-26-2009, 05:28 AM

I can't see why this shouldn't work, it'shard to check without the full code or an example workbook

If Selection.Cells(x, 14) <> "A" And Selection.Cells(x, 14) <> "B" And _
    Selection.Cells(x, 14) <> "C" And Selection.Cells(x, 14) <> "D" And _
    Selection.Cells(x, 14) <> "L" And Selection.Cells(x, 14) <> "N" And _
    Selection.Cells(x, 14) <> "S" And Selection.Cells(x, 14) <> "T" Then
    MsgBox "Type is False! You have to change it! " & "Place: Selected Row: " & x & " Column: 14 (N)"
    Selection.Cells(x, 14).Interior.ColorIndex = 3
    GoTo Einde
    End If