Correction Macro

[MR3]

Current XL Sheet (Before Macro):


http://g.imageshack.us/g.php?h=383&i=beforeif8.png

After Macro XL Sheet (After Macro):


http://g.imageshack.us/g.php?h=383&i=afteroz1.png

*****************************************************

Before XL Sheet: All the formulas are in place. The data in the Column C is formatted white.

After the Macro is run I would like all that data to turn Black and then fill the "FALSE" rows to be Red.

So far the code I have is:

Sub Correction_Macro()
Range("C1").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=INT(C1)=FALSE"
Selection.FormatConditions(1).Interior.ColorIndex = 2
Selection.Copy
FinalRow = Range("C15000").End(xlUp).Row
Range("C2:C" & FinalRow).Select
Selection.PasteSpecial Paste:=xlPasteFormats
End Sub

Help would be greatly appreciated, THANKS!

 

[MR3]

ttt

 

[Scott Huish]

Perhaps:

Sub test()
Dim lastrow As Long
lastrow = Range("C15000").End(xlUp).Row
Range("A:C").FormatConditions.Delete
Range("C:C").Font.Color = vbBlack
With Range("A3:C" & lastrow).FormatConditions
    .Add Type:=xlExpression, Formula1:="=RC3=FALSE"
    .Item(1).Interior.Color = vbRed
End With
End Sub

 

[MR3]

Thanks alot! Code works. However, it locks the color to red once the code is run. It wont let me change it back to "No Fill" Manually.

 

[Scott Huish]

No, because it's Conditional Formatting.
You have to delete the Formatting Condition to turn it off.

 

[MR3]

i suppose i could assign this marco to a button and then write another marco that reverses it (back to its original conditon) and assing that to another button.

A button sorta like this:


http://g.imageshack.us/g.php?h=294&i=buttonxm1.png