LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming,microsoft.public.excel.interopoledde
external usenet poster
 
Posts: 4
Default 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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Compare & highlight changes between two worksheets? Katie Excel Worksheet Functions 3 March 7th 09 02:51 PM
Compare strings in cells and highlight difference Odin[_2_] Excel Programming 1 June 28th 06 10:14 AM
How do you compare 2 list of numbers and highlight the difference Jay Jones Excel Programming 1 March 20th 06 04:49 PM
How do you compare 2 list of numbers and highlight the difference Tom Ogilvy Excel Programming 0 March 20th 06 02:50 PM
Compare two worksheets and highlight the one sheet’s difference from the other one minrufeng[_13_] Excel Programming 1 February 24th 06 10:19 PM


All times are GMT +1. The time now is 11:40 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"