define unique Advancefiltered range
Here is an example using a smaller range than yours:
Sub Filtered_Range()
Range("C2:C45").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("C2:C45").SpecialCells(xlCellTypeVisible).Co py Range("D2")
ActiveSheet.ShowAllData
End Sub
Mike F
"Stefi" wrote in message
...
Hi All,
I made a unique filtering, it works:
Range("C2:C367").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
How can I define a range consisting of the unique visible cells?
Thanks,
Stefi
|