FormatConditions com excel Topic is solved

[inseption86]

Code: Select all

double:= Xl.Range("A:A")
double.FormatConditions.AddUniqueValues
double.FormatConditions.DupesUnique(1) := xlDuplicate
double.FormatConditions(1).Font.Color := 16711680

Please help. Is not working. unique values ​​are displayed

With macro working

Code: Select all

Sub sdsd()
Range("A:A").Select
 Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
       End With

End Sub

[jmeneses]

Hi inseption86, try this

Code: Select all

#If WinActive("ahk_exe EXCEL.exe")
F4::
WinWaitActive, ahk_class XLMAIN
oExcel := ComObjActive("Excel.Application")
If (oExcel){
    oExcel.Range["A:A"].FormatConditions.AddUniqueValues()	
    oExcel.Range["A:A"].FormatConditions(1).DupeUnique := xlDuplicate:= 1
    oExcel.Range["A:A"].FormatConditions(1).Font.Color := 255
    oExcel.Range["A:A"].FormatConditions(1).Interior.Color := 65535
  	msgbox % "DONE!!"
	}
oExcel:=""
Return

[inseption86]

Thank you