TransRlucent
New Member
- Joined
- Dec 12, 2018
- Messages
- 2
Hello eveyone! I'm having some trouble taking apart this code I found. I'm looking to error check a group of cells and I'd like to highlight the ones that don't match a Master list.
For some reason I can't get this to highlight the cells that DON'T match the list.
Please help me through this, I'd be very grateful!
For some reason I can't get this to highlight the cells that DON'T match the list.
Please help me through this, I'd be very grateful!
Code:
Dim myRange, v, f, a
Set myRange = Range("P12:P200")
For Each v In Workbooks("Formula_Weighup Audit Auto-Fill Final").Worksheets("Active Master List").Range("J2:J1054")
Set f = myRange.Find(what:=v, lookat:=xlPart)
If f Is Nothing Then
a = f.Address
Do
f.Interior.ColorIndex = 5
Set f = myRange.FindNext
Loop While f.Address <> a
End If
Next
MsgBox "Error: R&D #(s) do not exist" & vbNewLine & "(see highlighted items)"
Exit Sub