Here's a quick and dirty routine you can adapt for your purposes. It will
compare "Book1.xls" and "Book2.xls" and list the differences in a new
workbook.
Sub SimpleCompare()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim ResultWB As Workbook
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Rng1 As Range
Dim Rng2
Dim DestRng As Range
Set WB1 = Workbooks("Book1.xls") '<<< CHANGE
Set WB2 = Workbooks("Book2.xls") '<<< CHANGE
Set ResultWB = Workbooks.Add()
Set DestRng = ResultWB.Worksheets(1).Range("A1")
DestRng(1, 1) = "Cell"
DestRng(1, 2) = WB1.Name & "Value"
DestRng(1, 3) = WB2.Name & "Value"
Set DestRng = DestRng(2, 1)
For Each WS1 In WB1.Worksheets
Set WS2 = WB2.Worksheets(WS1.Name)
For Each Rng1 In WS1.UsedRange.Cells
Set Rng2 = WS2.Range(Rng1.Address)
If Rng1 < Rng2 Then
DestRng(1, 1) = Rng1.Address
DestRng(1, 2) = Rng1.Text
DestRng(1, 3) = Rng2.Text
Set DestRng = DestRng(2, 1)
End If
Next Rng1
Next WS1
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)
"Raoul" wrote in message
...
I have an excel sheet that is updated every day. I would like compare the
two
sheets and give me cells that have changed with exact values:
Eg:
Clothes in stock - 56
Clothes displayed - 30
Clothes sold - 34
Next day
Clothes in stock - 50
Clothes displayed - 31
Clothes sold - 39
Its much more complicated that this but that is the basic jist.
thanks,
Raoul