copy cell if row matches

Hi, light,

is there an unique identifier for the data sets like the item in Column A? If not could we add a new column A to both sheets and concatenate the values for Columns 2 to 7 to show the search criteria? Will there always be just one match or might there be more than one match?

With the newly created searchcriteria you could use a loop for sheet3 using only the cells with data by using SpecialCeclls(xlCellTypeConstants, 23) and using a For Each rngCell in range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTyoeConstants, 23), use WorksheetFunction:CountIf to check if this item is available on Sheet2, use Find for Column A on Sheet2 if the result is greater than 0, set a range to the first found, copy over by using the rows of the ranges as part of the cells. At the end of the macro delete the first column on both sheets. Not that complicated, is it?

Ciao,
Holger

In looking for a macro to this problem, I have come across methods that say to use a unique identifier but this does not apply in this case.

I do have a macro that checks the first 6 cells on a sheet for duplicates and if they are identical deletes the duplicate row(s). That macro is performed on sheet 2 to clean it up. I'm just not sure how to turn the macro into checking for identical rows between 2 sheets and not deleting but adding a copied value to the end of all rows on sheet 3. This is what I have that identifies duplicates between the first 8 cells (I can change it to 6 or whatever)on the same sheet then deletes them. I'm sure it can be modified to check for identical rows in the first 6 cells between sheets and do a copy/loop.

Please Login or Register  to view this content.

Hi, light,

you should add code-tags to your procedure as requested by Forum Rule #3.

Please try this code on a copy of your workbook:

Please Login or Register  to view this content.

Ciao,
Holger