Copy an autofilter range
 

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

--
Message posted from http://www.ExcelForum.com

Copy an autofilter range
 

Hi
have a look at
http://www.contextures.com/xlautofilter03.html#Copy

--
Regards
Frank Kabel
Frankfurt, Germany

Hi all,

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

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

Thanks in advance
Paul


---
Message posted from http://www.ExcelForum.com/

Copy an autofilter range
 

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

"pauluk " wrote in message
...
Hi all,

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

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

Thanks in advance
Paul


---
Message posted from http://www.ExcelForum.com/