Help fixing vba to copy excel duplicates to new sheet

Hi all, I am trying to fix a piece of vba code to copy duplicate rows based on a chosen range and copy all the duplicates to a new excel sheet.

So far the code is working almost to my expectations, except that the code copies additional rows with blank cells. Below is an illustration of my issue:

The picture below shows the data sample that i want to check for duplicate rows based on. When i run the macro i will be asked to select my range so i will highlight A1 to C5.

1.png

The following result below is then copied to the new sheet. The rows highlighted in green are the correct duplicates i expected but additional ones that i highlighted in red appears.

2.png

Here is the code and i have also attached a sample of the excel file with the macro:

Please Login or Register  to view this content.

Can you upload a workbook showing your desired result?

Jindon thanks for replying, I have attached an excel file at the bottom of my original post which you can download. My desired results are to expect the duplicates highlighted in green in the picture above and not the additional ones highlighted in red.

Select A1:C5 from Sheet1 the the code paste to a new sheet.
The result are exactly the same as Sheet48, that is originally attached.

So what's the problem?

So you want to extract only duplicates.

Please Login or Register  to view this content.

Yes only duplicates. Regardless whether they appear twice, 3 times or more it should be copied. Ill give your code a test now. Thanks jindon, ill get back to you.

Jindon you are a genius brother it works exactly as expected. Thanks a lot for your help!

You are welcome and thanks for the rep.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

ymk10,

I just realized that the result array should be isolated from the original array, just in case.

Please Login or Register  to view this content.

Ah I see, noted and many thanks again!