Highlight Unique Values

[lezawang]

Hi
I am trying to understand the code below but I am having difficult time to understand these lines and what they do

rng.FormatConditions.Delete

Set uv = rng.FormatConditions.AddUniqueValues

uv.DupeUnique = xlUnique

Thank you very much.

Sub find_unique()
    Dim rng As Range
    Set rng = Selection
    rng.FormatConditions.Delete
    Dim uv As UniqueValues
    Set uv = rng.FormatConditions.AddUniqueValues
    uv.DupeUnique = xlUnique
    uv.Interior.Color = vbGreen
End Sub

souce https://excelchamps.com/blog/useful-macro-codes-for-vba-newcomers/

 

[Eric W]

These lines are removing and adding Conditional Formatting via VBA.

rng.FormatConditions.Delete

is roughly the equivalent of clicking Conditional Formatting > Clear Rules > Clear Rules from selected cells.


Set uv = rng.FormatConditions.AddUniqueValues

is derived from clicking Conditional Formatting > Highlight Cells Rules > More Rules > Format only duplicate or unique values. You can use the macro recorder to see this. The lines from the macro recorder don't match that macro exactly, the macro author selected the parts he wanted.