Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.excel.interopoledde
|
|||
|
|||
Compare two worksheets in the same workbook and highlight difference
Hello All,
If anyone could help me with a VBA Macro that will compare two worksheets in the same workbook and highlight the difference, it would be greatly appreciated. Both worksheets have the same number of columns (12) but not the same number of rows. The first worksheet is called "CURRENT" that has the current inventory of all our computer assets for the month. The second worksheet is called "PREVIOUS" that has last month inventory in it. Using the serial number column (F2) as the key from current worksheet, search previous worksheet to see if it exist. If it exist, then compare the row of data in current worksheet against previous worksheet where the serial number matches. If they do not match hightight the entire row in the current worksheet. Also if possible highlight in read the column cell data that has the mismatch. The first part i was able to put together, where i uses the serial number column in current sheet and look to see if it exist in the previous sheet. If it exist then compare the row, if the rows do not match, then hightlight the entire row in the current worksheet. What i am unable to do is the second part, highlight the cell data in the column where the data in the row does not match. Listed below is the code thus far. Sub SearchHighlight() '-------------------------------------- Sheets("Current").Select Dim rng As Range Dim lRow As Long, lRowT As Long Dim iCol As Integer Dim bln As Boolean Set rng = Worksheets("Previous").Range("F2").CurrentRegion For lRow = 1 To Range("F2").CurrentRegion.Rows.Count bln = True For lRowT = 1 To rng.Rows.Count For iCol = 1 To 12 If Cells(lRow, iCol) < rng(lRowT, iCol) Then bln = False Exit For End If Next iCol If bln = True Then Exit For ElseIf lRowT < rng.Rows.Count Then bln = True End If Next lRowT If bln = False Then Range(Cells(lRow, 1), Cells(lRow, 12)).Interior.ColorIndex = 6 End If Next lRow End Sub Any and all help with regards to this matter is greatly appreciated. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compare & highlight changes between two worksheets? | Excel Worksheet Functions | |||
Compare strings in cells and highlight difference | Excel Programming | |||
How do you compare 2 list of numbers and highlight the difference | Excel Programming | |||
How do you compare 2 list of numbers and highlight the difference | Excel Programming | |||
Compare two worksheets and highlight the one sheet’s difference from the other one | Excel Programming |