Read xlDupeUnique enumeration?

[Dr. Demento]

Is there a way to read UniqueValues.xlDupeUnique enumeration instead of only declaring/assigning it?

Thanks y'all.

 

[Marcelo Branco]

Maybe...

Dim myVar As Long
myVar = Range("A2:A7").FormatConditions(1).DupeUnique
If myVar = 0 Then
    MsgBox "Unique values"
Else
    MsgBox "Duplicate values"
End If

M.

 

[Dr. Demento]

Thank you, Marcelo. You provided the missing piece: .FormatConditions(1). Additionally, I found that my solution requires that the sheet to be activated that contains the object (the range with the Unique/Duplicate conditional format) and outputs 0 for Unique and 1 for Duplicates.

sht.Activate  ' ~ Required to allow next line to function properly!!!
obj.AppliesTo.FormatConditions(1).DupeUnique

Thanks again.

 

[Marcelo Branco]

You're welcome.

Question: what exactly is obj in your code?

M.