Copy an autofilter range

P

pauluk

Hi all,

Does anyone know how to only copy a range whit an autofilter ha
filted:

i.e. the macro has filtered field 10 for blanks, all that is require
to be copied is the filtered rows to a sheet named "extract"

Thanks in advance
Pau
 
E

Ed

After filtering and hiding some columns, my macro uses the following code to
paste the data to another workbook. Rename your column identifiers and
workbook name to suit.

' Find end of data, start for lists
Range("B65536").End(xlUp).Select
LastRow = ActiveCell.Row

' Select range and copy
Range("A1:U" & LastRow).Select
Selection.Copy

' Open Calc_Stats workbook
Set wb2 = Workbooks.Open(strFPath & "Calc_Stats.xls")

' Paste in data
wb2.Activate
Sheets("Sheet1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

HTH
Ed
 
Top