Vba to add a conditional format for currency?

[tonywatsonhelp]

Hi Everyone,
I've tried everything I can think of but cant get this to work, please help
Below is the code I need to add a conditionl formating rule into excel.
The problem is I cant get it to add in the forming condition I want.
basicly I want it for format currency to $

please help if you can

heres my code:

Sub A_AAAA()
    Range( _
        "F6:I26,G27,I27,F29:I48,G49:G50,I49:I50,F53:I61,G62,G64,I62,M6:M26,M29:M48,W29:Z49,W6:Z26" _
        ).Select

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=IF(AND($A$2=""Converted"",$A$3=""USD""),TRUE)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).StopIfTrue = False

    
End Sub

 

[Joe4]

It looks like you deleted out the line that tells the format.
It should look something like this:

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ExecuteExcel4Macro "(2,1,""$#,##0.00"")"
    Selection.FormatConditions(1).StopIfTrue = False

If you turn on your Macro Recorder and record yourself applying the Conditional Formatting rule to one of the cells, you should record the line of code that you need.
Then you can just copy and paste that into your code.

 

[6StringJazzer]

This not an error, but your formula does not have to explicitly return the value TRUE. It just needs to be a boolean expression that will return TRUE or FALSE. This formula is the equivalent of yours:

=AND($A$2="Converted",$A$3="USD")

or in the code

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND($A$2=""Converted"",$A$3=""USD"")"

It is not necessarily "better" but it's simpler.