Find duplicate rows and give a warning.

Hello,

I am new to VBA. I have managed to gather codes from here and there and reached so far. I have attached a sheet. Its basically car allocation sheet for a car showroom.

Sheet1 contains customer list, with booking date and model they need. Cars are to be delivered on first come first served basis. (That's already done)


1. There are 2 status, delivered and hold and those rows go to their particular sheets. That is also functional. Now in sheet HOLD, i need 2 status, delivered or rejected. If delivered, it will go to delivered sheet, if rejected then back to sheet1.

2. Also i have inserted another module (not functional, got it from another user) to check for duplicate data whenever i paste new data to sheet1. I need to compare 3 columns, Name, mobile no, and model; with other datain sheet "delivered" and "hold". If there is a duplicate data, it should show some alert message and in sheet1 column G, i should get its status (Delivered or hold) so i know in which sheet the duplicate data is.

3. Whenever any macro runs, after processing it should save the workbook automatically.

Thank you.

EDIT: In Sheet2 column H, if there is no value and if someone clicks "Allocate" by error, sheet hangs. Anyway to check all macros for errors before they run so sheet does not hang?

Try this out for size...