sherwinarae
Board Regular
- Joined
- Jul 28, 2003
- Messages
- 73
The macro below highlights all duplicate value except for zero's, i need it to then populate cell H5 with "duplicates" IF any duplicates were found.
I tried the below but it doesn't work, HELP!!!!!
Dim dupindicator As Range
Set dupindicator = Range("H5")
'highlight duplicates
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
.FormatConditions(1).StopIfTrue = True
.FormatConditions.AddUniqueValues
.FormatConditions(2).DupeUnique = xlDuplicate
.FormatConditions(2).Interior.Color = RGB(255, 0, 0) And dupindicator.Value = "duplicates"
.FormatConditions(2).StopIfTrue = False
I tried the below but it doesn't work, HELP!!!!!
Dim dupindicator As Range
Set dupindicator = Range("H5")
'highlight duplicates
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
.FormatConditions(1).StopIfTrue = True
.FormatConditions.AddUniqueValues
.FormatConditions(2).DupeUnique = xlDuplicate
.FormatConditions(2).Interior.Color = RGB(255, 0, 0) And dupindicator.Value = "duplicates"
.FormatConditions(2).StopIfTrue = False