Robert Mika
MrExcel MVP
- Joined
- Jun 29, 2009
- Messages
- 7,256
I have report downloading every day.
It has around 500 rows.
Every day I need to go through all of the lines to find small changes.
This macro is comparing two rows in sheets and will copy all differences to Sheet3.
The problem is that it is comparing rows not actually entries.
(Data in row of today's report (let say 2) can be in different row on yesterday’s (let say 5)
Is the a way to compare those entries and paste the difference to another sheet?
It has around 500 rows.
Every day I need to go through all of the lines to find small changes.
This macro is comparing two rows in sheets and will copy all differences to Sheet3.
Code:
Public Sub ReconReport()
Dim rngCell As Range
For Each rngCell In Worksheets("Sheet1").UsedRange
If Not rngCell = Worksheets("Sheet2").Cells(rngCell.Row, rngCell.Column) Then _
Let Worksheets("Sheet3").Cells(rngCell.Row, rngCell.Column) = rngCell
Next
End Sub
(Data in row of today's report (let say 2) can be in different row on yesterday’s (let say 5)
Is the a way to compare those entries and paste the difference to another sheet?