Different attempt Jefferson Davis 19.Oct.11 10:09 PM a Web browser 1-2-3 All ReleasesWindows XP
Hello again Jonathan,
I'm not fully following your example.
I've got approx. 10 cells, in each of 3 range groupings for each Sub to check. I attempted the below which is very simple to my mind. I just haven't figured out how to set it up correctly so that it'll work.
I thought it through a little better this time and created an example file to figure it out. Here goes;
I placed in A:A1 = 2
I placed in A:B1 = 2
I placed in A:C1 the formula: @IF(A1=B1,"Correct","WRONG")
And in the cellcontentschange for A:C1, I placed:
Sub Cellcontentschange(Source As Range)
If [A:C1].contents = "Correct" Then
[A:C1].Font.FontColor.ColorName = "black"
[A:C1].Background.BackColor.ColorName = "white"
[A:C1].Font.Bold = False
[A:C1].Font.Italic = False
Else
[A:C1].Font.FontColor.ColorName = "red"
[A:C1].Background.BackColor.ColorName = "blush"
[A:C1].Font.Bold = True
[A:C1].Font.Italic = True
End If
End Sub
I can get the cell to change to the "red" section, but it will not change back.
This is probably very simplified, but it's how my mind is working. Any suggestions would be greatly appreciated.
Return to top
. . . . . . . . . . Different attempt (Jefferson Davis... 19.Oct.11) 
Print this page
