Conditional Formatting for Numbers but text, dates, and blanks are treated as numbers??

are you doing this with a macro, or just standard conditional formating? if it is a macro could you include the code.

also note, dates no matter how they are formated are actualy a number at the formula level, for example 10-Jan-2012 is actualy 40918.

I made this using Recorded Macro and Conditional Formatting. So there is no way to exclude the dates from this conditional formatting?

Thanks

Sub Macro3()
'
' Macro3 Macro
'

'
    Cells.Select
    ActiveWindow.SmallScroll Down:=-12
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=1.2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=0.8"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Recorded macro's are enharently unperfect, but give this a shot

i added a few more paramaters to your conditional formating

=AND(A1>1.2,A1<40000,T(A1)="",A1<>"")"

A1>1.2 - Your goal
A1<40000 - Makes sure its not a date
T(A1)="" - Make sure its not text
A1<>="" - make sure its blank

Sub Macro3()
'
' Macro3 Macro
'

'
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1>1.2,A1<40000,T(A1)="",A1<>"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1<.8,T(A1)="",A1<>"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

code error.. try this

Sub Macro3()
'
' Macro3 Macro
'

'
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1>1.2,A1<40000,T(A1)="""",A1<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1<.8,T(A1)="""",A1<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

no problem

note for future consideration: to use a " in VBA within a string, enter it as a "" that is what my error was in the first run of code.

glad to have been able to help

no problem

note for future consideration: to use a " in VBA within a string, enter it as a "" that is what my error was in the first run of code.

glad to have been able to help

just change A1<40000 to A1<10 like this:

Sub Macro3()
'
' Macro3 Macro
'

'
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1>1.2,A1<10,T(A1)="""",A1<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(A1<.8,T(A1)="""",A1<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub