Happy to help.

JLGWhiz


"Joe_Hunt via OfficeKB.com" <u45578@uwe wrote in message
news:a62d9c526c47c@uwe...
That worked! Thanks a bunch. It wasn't exactly what I was looking for, but
it's actually better since I have a separate list of what the duplicates
were
now. I really appreciate it.

JLGWhiz wrote:
The code tests each cell in column A of sheet 2 for a match in column B of
sheet 1. If a match is found, it copies the entire row for the matched
item
to the new sheet "Dup_Dele",and then deletes that row from sheet 1, based
on
your statement that you wanted to delete duplicates from sheet 1.

The code displayed no errors when tested but line wrap in the news reader
often causes distorted results when pasting into a user's code window.

Sheets("Dup_Dele").Cells(Rows.Count, 2).End(xlUp).Offset(1,
0).Row)

This should all be on one line like:

Sheets("Dup_Dele").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row)

Or you can use a line attenuation like:

Sheets("Dup_Dele").Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row)

to make it easier to read in one pane.

For clarity sake, see if you can get the code to run on you system first,
then tell me how you want to re-arrange the results of the code.

I tried it and there was a syntax error on the section:

[quoted text clipped - 66 lines]
since
I'd need to put it back into Excel anyway. Thanks again.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/201004/1