excel - Conditional Formatting Error VBA -
i wondering whether can please?! im getting error @ following line:
.add type:=xlexpression, formula1:= _ "=if($e1<>"",and($e1<today(),$f1=""awaiting information"")) = 1"
here code below.
sub conditionalformat() sheets("naco").cells.formatconditions.delete worksheets("naco").columns("a:n").formatconditions **.add type:=xlexpression, formula1:= _ "=if($e1<>"",and($e1<today(),$f1=""awaiting information"")) = 1"** .item(.count).interior .color = 255 end .add type:=xlexpression, formula1:= _ "=if($e1<>"",and($e1<today(),$f1=""on going"")) = 2" .item(.count).interior .color = 225 end .add type:=xlexpression, formula1:= _ "=if($e1<>"",and($e1<today(),$f1=""awaiting quotation"")) = 3" .item(.count).interior .color = 255 end .add type:=xlexpression, formula1:= _ "=$f1=""on going"" = 4" .item(.count).interior .color = rgb(247, 150, 70) end end end sub
could please explain why error occurring please? ""?
can try changing formula one:
=if(and($e1<>"",$e1<today(),$f1="awaiting information")=1
?
Comments
Post a Comment