Comparing Data in Excel
Solved/Closed
sointly
TrowaD
- Posts
- 2
- Registration date
- Sunday May 26, 2013
- Status
- Member
- Last seen
- May 27, 2013
TrowaD
- Posts
- 2884
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 21, 2022
Related:
- Comparing Data in Excel
- Excel - Compare data from two columns - How-To - Excel
- How to compare data in two excel sheets - Guide
- Comparing data between two excel sheets ✓ - Forum - Excel
- How to compare a range of data in Excel? ✓ - Forum - Excel
- Comparing data in 3 columns on a Microsoft Excel spreadsheet ✓ - Forum - Excel
1 reply
TrowaD
May 27, 2013 at 11:40 AM
- Posts
- 2884
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 21, 2022
May 27, 2013 at 11:40 AM
Hi Sointly,
Here is your requested code:
In case you don't know here is how to implement the code:
ALT+F11 > top menu new window > Insert > Module > Paste code in big white field.
To run code:
Select correct sheet > ALT+F8 > double-click ColorUniqueRed
Best regards,
Trowa
Here is your requested code:
Sub ColorUniqueRed() Dim lRow, x As Integer lRow = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("A1:A" & lRow) x = 0 With Range("N1:X65536") Set c = .Find(cell.Value, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do x = x + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With If x = 0 Then cell.Interior.ColorIndex = 3 Next cell End Sub
In case you don't know here is how to implement the code:
ALT+F11 > top menu new window > Insert > Module > Paste code in big white field.
To run code:
Select correct sheet > ALT+F8 > double-click ColorUniqueRed
Best regards,
Trowa