Results of Advanced Filter to Array
 

I'm using this line of code to get unique values only. Is there a way
to get the results of the advanced filter into an array instead of
putting it on the worksheet? TIA, James

Range(Selection.Address).AdvancedFilter Action:=xlFilterCopy,
Unique:=True, Copytorange:=[h3]

Results of Advanced Filter to Array
 

Not directly. You could run it, put the results range into an array and
clear the results range.

--
Regards,
Tom Ogilvy


"Zone" wrote:

I'm using this line of code to get unique values only. Is there a way
to get the results of the advanced filter into an array instead of
putting it on the worksheet? TIA, James

Range(Selection.Address).AdvancedFilter Action:=xlFilterCopy,
Unique:=True, Copytorange:=[h3]

Results of Advanced Filter to Array
 

Thank you, Tom.

Tom Ogilvy wrote:
Not directly. You could run it, put the results range into an array and
clear the results range.

--
Regards,
Tom Ogilvy


"Zone" wrote:

I'm using this line of code to get unique values only. Is there a way
to get the results of the advanced filter into an array instead of
putting it on the worksheet? TIA, James

Range(Selection.Address).AdvancedFilter Action:=xlFilterCopy,
Unique:=True, Copytorange:=[h3]

Results of Advanced Filter to Array
 

Zone wrote:
I'm using this line of code to get unique values only. Is there a way
to get the results of the advanced filter into an array instead of
putting it on the worksheet? TIA, James

Range(Selection.Address).AdvancedFilter Action:=xlFilterCopy,
Unique:=True, Copytorange:=[h3]

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook, then
instead of using the Advanced Filter you could use

arr = ArrayUniques(Selection)

Alan Beban

Results of Advanced Filter to Array
 

Thanks, Alan.
James
Alan Beban wrote:
Zone wrote:
I'm using this line of code to get unique values only. Is there a way
to get the results of the advanced filter into an array instead of
putting it on the worksheet? TIA, James

Range(Selection.Address).AdvancedFilter Action:=xlFilterCopy,
Unique:=True, Copytorange:=[h3]

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook, then
instead of using the Advanced Filter you could use

arr = ArrayUniques(Selection)

Alan Beban