Find Duplicates on 2 different sheets & copy

**Burt_100** · 06-10-2013, 11:42 AM

Hi,
I need a macro which can find duplicates between sheet1 column A compared to sheet2 column A & copy the row into sheet 3. I need the macro to make a copy of the cells and copy it to sheet and delete the remaining entry? I appolgise if this is readily available its just Ive spend 4 hrs searching for it today with no success? Any help would be most appreciated.
Many Thanks
Johnny

**JOHN H. DAVIS** · 06-10-2013, 12:02 PM

Maybe:

Please Login or Register  to view this content.

**Burt_100** · 06-10-2013, 01:23 PM

John,
I have tried out the sent code but it leaves the duplicates in sheet1 & sheet2 and copies the non duplicated data to sheet 3. I need it the opposite way around so that it leaves the non duplicated data in sheet1 & sheet2 and copies 1 copy of the duplicated data to sheet 3. Sorry to be a pain.
Thanks
Johnny

**JOHN H. DAVIS** · 06-10-2013, 01:38 PM

No pain at all. Try.

Please Login or Register  to view this content.

**Burt_100** · 06-10-2013, 02:01 PM

John,
I have attached a copy of the worksheet with the macro added but it doesnt seam to be working? Can you take a look at it and show me whats wrong?
Thanks
Johnny

**JOHN H. DAVIS** · 06-10-2013, 03:03 PM

Maybe:

Please Login or Register  to view this content.

**Burt_100** · 06-10-2013, 03:08 PM

sorry John its copying ok and deleting the entry in sheet1 but not sheet2?

**JOHN H. DAVIS** · 06-10-2013, 03:25 PM

OK. Perhaps I misunderstood.

Please Login or Register  to view this content.

**Burt_100** · 06-10-2013, 04:55 PM

John,
I have renamed the sheets and now the macro wont work after all your good work, The name of the sheets are sheet1 = Service Reminders, Sheet2 = MOT Reminders & Sheet3 = Service & MOT Reminders would you mind modifying this for me?
Sorry again
Johnny

**JOHN H. DAVIS** · 06-11-2013, 06:44 AM

Here ya go.

Please Login or Register  to view this content.

**Burt_100** · 06-11-2013, 01:34 PM

John,
Yet another problem, I have inserted the text but I keep getting the attached runtime error? I think it may be because all date above A9 is a header but im not sure, I tried to change the cell references to A9 so that it would start looking after A9 but Im not sure if its correct to do this and if this is what is really causing the problem?
Thanks
Johnny