I have wrote a VBA code to add conditional formatting to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???

Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:= _
"=(AD10<895)*(AD10<0)"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree wrote:
I have wrote a VBA code to add conditional formatting to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???

It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:= _
"=(AD10<895)*(AD10<0)"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree wrote:
I have wrote a VBA code to add conditional formatting
to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex =
xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???
.

Hi
what do you mean with 'does not save'?

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree23 wrote:
It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:= _
"=(AD10<895)*(AD10<0)"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree wrote:
I have wrote a VBA code to add conditional formatting to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???
.

When I click on the sheet, then click on the cell, then
check the conditional formatting, it isn't there.


-----Original Message-----
Hi
what do you mean with 'does not save'?

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree23 wrote:
It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:= _
"=(AD10<895)*(AD10<0)"
.FormatConditions(1).Font.ColorIndex =
xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree wrote:
I have wrote a VBA code to add conditional formatting
to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex =
xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???
.
.

Hi
this works for me (so I can see this condition within the dialog). Have
you tried this code as 'stand-alone'

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree23 wrote:
When I click on the sheet, then click on the cell, then
check the conditional formatting, it isn't there.


-----Original Message-----
Hi
what do you mean with 'does not save'?

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree23 wrote:
It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:= _
"=(AD10<895)*(AD10<0)"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


scrabtree wrote:
I have wrote a VBA code to add conditional formatting to a
cell. Here is the code:

With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression,
Formula1:= _
"=IF(AD10=895,0,IF(AD10=0,0,1))"
.FormatConditions(1).Font.ColorIndex = xlAutomatic
.FormatConditions(1).Interior.ColorIndex = 3

However...it isn't adding the formatting???
.
.

Did you select cell AD10 of sheet 'T.S.' before you looked at conditional formatting
because that is the only cell that the C.F. is applied to in the macro...
---
"scrabtree23" wrote in ...
When I click on the sheet, then click on the cell, then
check the conditional formatting, it isn't there.

scrabtree23 wrote:
It isn't that my formula doesn't work, it is that the
conditional formatting just doesn't save???

-----Original Message-----
Hi
the following works for me:
Sub foo()
With Sheets("T.S.").Range("AD10")
.FormatConditions.Delete