Criteria in Column Y, Copying Column x but pasting unique values only in new worksheet

[jaspalsd]

Hi,

I can do this a little long-winded way but I am wondering on the most efficient way of doing the following:

1. Go to a worksheet and then filter a column with a certain value
2. Once filtered, select a range from another column
3. Copy this select column and ensure values are unique

So I have found code that can filter unique values based on one column but I am unable to set a criterial within the line of code.

[COLOR=#333333]Public Sub Test()[/COLOR]
ActiveSheet.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("B2"), Unique:=True
 [COLOR=#333333]End Sub[/COLOR]

Another method is to do code using the With Statement and I am able to paste the columns to a new worksheet but it'll paste the whole range including duplicates

I guess I can just remove the duplicates after pasting to the new worksheet but out of interest can I apply criteria in the code above?

Thanks!

 

[jaspalsd]

Hi,

Managed to work a way around it

Did a With Statement relating to the table and filtering the column by the criteria. Once filtered I applied a similar formula to the above