View Single Post
  #12   Report Post  
Posted to microsoft.public.excel.misc
David A. David A. is offline
external usenet poster
 
Posts: 64
Default "Live" Advanced Filter (for unique records)

A1=CSR
B1=UniqueNames

=IF(SUMPRODUCT(($A$2:$A$20<"")*1/COUNTIF($A$2:$A$20,$A$2:$A$20&""))<=COUNTA($B$1:$B 1)-1,"",INDEX($A$2:$A$20,MATCH(TRUE,ISERROR(MATCH($A$ 2:$A$20,$B$1:$B1,0)),0),1))

I get this error.

CSR UniqueNames
Test-5 #N/A
Test-5 #N/A
Test-10 #N/A
Test-10
Test-11


















"Ron Coderre" wrote:

With
A1 contains the title of the list (eg: Names)
A2:A20 containing a contiguous list
(which may include duplicates. blanks only at the end)

Try something like this:

B1: UniqueNames
Enter this ARRAY FORMULA in B2
=IF(SUMPRODUCT(($A$2:$A$20<"")*1/COUNTIF($A$2:$A$20,$A$2:$A$20&""))<=COUNTA($B$1:$B 1)-1,"",INDEX($A$2:$A$20,MATCH(TRUE,ISERROR(MATCH($A$ 2:$A$20,$B$1:$B1,0)),0),1))

Note: For array formulas, hold down [Ctrl] and [Shift] when you press
[Enter], instead of just pressing [Enter].

Copy B2 and paste into B3 and down as far as you need

Example:
If A1:A8 contains
Title
Company_02
Company_02
Company_03
Company_01
Company_02
Company_03
Company_03

The formulas return these values in B1:B4
Title
Company_02
Company_03
Company_01

NOTE: the unique values are listed in the order in which they are encountered

Is that something you can work with?
***********
Regards,
Ron

XL2002, WinXP


"RussG" wrote:

Is there a function, or other method, to maintain a real-time list of unique
records. In other words, I'd like to NOT have to manually run Advanced
Filter/Paste every time a new unique record is added. I assume I could do
this with a macro, but am trying to keep the file macro-free. Any
suggestions?
Thanks as always!