Thread: Filtering Data & Auto-filter

You can do it with "Advanced Filter"
It has a "copy to another location" option

true forgot about that
once you have filtered the data use like

Worksheets("Sheet1").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeVisible).copy destination:= Worksheets("Sheet2").Range("A1")

Have any problems attach a small workbook and we can refine the code/syntax

you don't have to do anything but filter/select visible cells and copy paste to a new sheet
or use advanced filter
say your data is on sheet1 and so is your criteria range
select sheet2! then data/advanced filter
then select sheet1! put range and criteria range select copy to another location
it will then automatically switch back to sheet2! pick a cell click ok

I knew Advance filter would do it just forgotten how
Thanks Martin
not enough wiki Mojito

ahh but its the Guiness talking tonight lol

One thing I miss about the UK is the Guiness on tap

extra cold mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm