Copy Row if duplicate and Paste to Different Sheet

[AndyIStheMan]

Looking for a way to have VBA lookup the duplicates in a table (it will be different lengths each time) and copy the duplicate rows to another sheet for further analysis.

I have attached a file that shows data that is similar.

Thanks,
Andy

[dangelor]

Try...

Please Login or Register  to view this content.

[AndyIStheMan]

Didn't quite work just inserting it and running. Do I need to change some variables so that it will pick up the actual cells?

It would be nice if it could dump the results to the same spot to make it easy to Vlookup.

Thanks,
Andy

[dangelor]

The code assumes a Sheet1 and a Sheet2.

[AndyIStheMan]

The code assumes a Sheet1 and a Sheet2.

Tried with a "Sheet2". Inserted code as a module and ran. Sheet 2 remains blank. No change. What might I be messing up? :roll eyes:

[dangelor]

Possibly because there are no duplicate rows. There were none in your attached file. See attached...

[AndyIStheMan]

OK I was asking the wrong question then. I am looking for the duplicates in the column. Then copy the duplicate column values and the other values in the same row as the duplicates.

[dangelor]

Which column?

[AndyIStheMan]

The Name Column (A).

[dangelor]

Try this one...

Please Login or Register  to view this content.

[AndyIStheMan]

That worked for the most part. If I put triplicates or quad unique entries in it, it messes it up. Does it need to loop?

Is it possible to have it bring over the the all the lookup values as well (first through last)?

[AndyIStheMan]

Well this worked!

Please Login or Register  to view this content.