ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Macro to filter sheet and copy to another (https://www.excelbanter.com/excel-programming/274123-re-macro-filter-sheet-copy-another.html)

Alan Beban[_3_]

Macro to filter sheet and copy to another
 
Well, it doesn't use Autofilter, but if the functions in the
downloadable file at http://home.pacbell.net/beban are available to your
workbook, and assuming your unfiltered data consists of 50 rows in a
range named "datarange", you can array enter into the following ranges
on the sheet to which you want to copy the data:

A1:C50
=SubArray(ArrayRowFilter1(datarange,20,"Amended"), 1,3,1,ArrayCountif(Sheet1!T1:T9,"Amended"))

D1:J50
=SubArray(ArrayRowFilter1(datarange,20,"Amended"), 7,14,1,ArrayCountif(Sheet1!T1:T9,"Amended"))

K1:M50
=SubArray(ArrayRowFilter1(datarange,20,"Amended"), 17,19,1,ArrayCountif(Sheet1!T1:T9,"Amended"))

#N/A! will be returned to the extra irrelevant rows.

Alan Beban

Gareth wrote:
I want to used AutoFilter to filter column T on Sheet1 for the word
'Amended'.

If there are any found, I would like to copy only certain columns to Sheet2.

The columns are A:C, G:M, Q:S

Thanks in advance.

Gareth





All times are GMT +1. The time now is 01:03 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com