VBA Data validation

[foxozaur]

Greetings MrExcel community,

I'm working on a VBA macro that allows me to send values from source workbook to destination workbook, with duplicates validation message box that provides two options - delete or retain. I'm done with the copy pasting values from source to destination files, however, I am struggling with the validating duplicates, the message box with two options "Keep or Delete" and removing duplicates within the destination file (the origin file does not matter in this case). A gentle reminder that this is a part of an existing macro!

Thanks in advance!

This is the sample file. I will lay every step I'd like to see in the macro.

This is the destination file with duplicates titled 'destinationfile.csv.'

I want the file to do the following:

1) validate total duplicates (I have built a SQL data feed) by locating the duplicate name
*No idea how to visualize it through excel, will use paint for that.

2) pop a message box with a request to keep or delete (THIS IS ONLY FOR COLUMN B)
*No idea how to visualize it through excel, will use paint again.

3) The macro then deletes the selected ones, and displays the total deleted duplicates

 

[FatBoyClam]

Glad I could help, thanks for the feedback.

 

[foxozaur]

Glad I could help, thanks for the feedback.

Greetings once again,

After running the macro with more complex values, I encountered Application-defined or object-defined error.
The debugger identifies an error in this syntax -> rDupe.Offset(0, -1).Resize(rLast.Row - rDupe.Row, 4).Value = rDupe.Offset(1, -1).Resize(rLast.Row - rDupe.Row, 4).Value

 

[FatBoyClam]

When it throws the error can you paste the following line into the Immediate Window (press Ctrl+G in the Visual Basic Editor to get the Immediate Window if you don't already have it)

debug.print rDupe.Row & " - " & rLast.Row

then press enter, and it should print two numbers separated by a hyphen on the next line in the immediate window, like this;

I suspect that the two numbers will be the same - in which case we'll need to have a look at your real-world dataset, as it sounds like it doesn't fit some of the original assumptions

 

[foxozaur]

debug.print rDupe.Row & " - " & rLast.Row
175 - 175

That's correct