macro to check two data sets

[ajaf123]

hello. I have two sets of data bases both containing data with unique ID in column A.In ColumnB there are amounts (it varies how many amounts are with each ID). for example:
first data

<colgroup><col width="64" span="4" style="width:48pt"> </colgroup><tbody>
</tbody>

A B C
1 id Amount Date
2 a112 200 dd-mm-yyy
3 1200 dd-mm-yyy
4 5 dd-mm-yyy
5 B112 500 dd-mm-yyy
6 400 dd-mm-yyy
7 C112 100 dd-mm-yyy

Second database:
A B C
1 id Amount Date
2 a112 1400 dd-mm-yyy
3
4 5
5
6
7 C112 100 dd-mm-yyy

I want a macro to match the sum of amounts with respective IDs and tick in the next column (columnE) when the sum of amounts equal. Also highlight in red if date with any ID of data2 is greater than that in data1.

 

[Juanca1080]

Hi,
Well, if the structure of the database hasn’t changed, I mean, if the Id only appears once in column A with subsequent records in column B, there’s no reason for the macro to fail (theoretically it should have worked no matter if the entries in column A are text strings, numeric or alphanumeric).
However you could try using the CStr conversion function in order to ensure that the results correspond to the correct items.
Replace this part of the code:

Do Until ActiveCell.Row = LastRow + 1
If ActiveCell[B].Value[/B] <> ActiveCell.Offset(-1, 0).Value Then
Cells(ActiveCell.Row, 4) = Application.WorksheetFunction.SumIf(IdRng, [B]Cstr([/B]ActiveCell.Value[B])[/B], ValRng)
End If

If this adjustment doesn’t do the job, we could focus a little more in the details of the results distortion to get the source of the problem.
Hope it helps.