compare and Extract unique values between 2 columns

[TroyB]

Hello All

I am trying to create a macro that will Compare data in two columns (on two sheets (sheet1 Column B, sheet2 Column A) and add any missing unique values from sheet 1 to sheet 2


Sheet1 column B

Items#s

Item 1
Item 2
Item 1
Item 4
Item 1
Item 2
Item 3
Item 4
Item 5
Item 6


Sheet2 Column A

Item#s
Item 1
Item 2
Item 4
Item 3
Item 5

After Running Item 6 would be added to the last row of sheet2 Column A



Can you please Help??

Troy

 

[TroyB]

Hi Fluff,

Each time I run your code it adds duplicate values to Column A on sheet2.

I am unsure why but it is bringing in items from Column B that have data in the Adjacent cell (Column C)

 

[Fluff]

Oops, misread your post, it should be

If Cl.Value <> "" And Cl.Offset(, 1).Value ="" Then Dic.Item(Cl.Value) = Empty

 

[TroyB]

That works very nicely

Thank you very much for your help on this!

 

[DanteAmor]

Hi Fluff,

Each time I run your code it adds duplicate values to Column A on sheet2.

I am unsure why but it is bringing in items from Column B that have data in the Adjacent cell (Column C)

You tested my code in post #9, consider the cell in column C = ""

 

[TroyB]

Thank you Dante,

Yours works well also

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[Fluff]

That works very nicely

Thank you very much for your help on this!

You're welcome & thanks for the feedback