Macro to detect duplicates

[realrookie]

Hello,

Looking for a code that would detect duplicate entries, and if found, stop the next macro ( via Call 'macroname') from running. If no duplicates are detected, it calls the second macro.

Range from "Import"(A:A) to find in "Maps"(1:1), without deleting the entries in "Maps"

The ones I find on the interwebs either delete the value,colour them, delete row or column. I just want it to stop any other macro from running ( I know how to add Msgbox)

Pointing in the right direction greatly appreciated,

Regards,

Red

[bakerman2]

Please Login or Register  to view this content.

[realrookie]

Hello bakerman2,

Thank you for the response.

When I run the code it debugged on

Please Login or Register  to view this content.

when hovering over it it says "1 = 1002" and Ubound(b)=Type mismatch"?

The data in Import(A:A) and Maps(1:1) are dates, does that make a difference?

[bakerman2]

None.
See example file. Change one of the dates on sheet Maps to match one on sheets Import.

[realrookie]

Weird, but after I changed your sheet to the same formatting as I got, same error.

Import.A1 = Date and Map.A1 = Import.A1-1 (need this to get some other code to work)

Attached is your file with the above changes.

I hope that (1:1) means Row, else I am looking like an idiot

[bakerman2]

Please Login or Register  to view this content.

[realrookie]

Merciekes, Thank you so much

[bakerman2]

To stay in the general forum.
What is Reset supposed to do?
Post Example file in which you're working (dummy data if necessary) and all the code involved.

[realrookie]

Reset calls the clearing of the Range A2:E1002. After Import, your macro runs, to check if in the given range are any duplicates, to indicate that the user has selected the wrong file for import.

And instead of the user clearing the range by him or herself manually, I tried to put it in front of the MsgBox when a duplicate was detected.

[bakerman2]

How about this one?

Please Login or Register  to view this content.

[realrookie]

Does the job, much appreciated