Extracting a Unique List Using Complex Criteria

[LearnExcl]

Hello, I have the below sample table (the actual table contains 1000 rows):

NAME CTRL CODE
Joe X3F0F3 23
Smith Y3MGG1 12
Synder D23SD4 32
Allison A3D0FH 56
Tom X3F1F3 89
Tommy E23SD4 50
Richard H61MN0 11
Ellen Y3MGG1 22
Samuel X3MGG1 90
John L23SD4 89
Rebecca C3D0FH 73
Helen S3D2FH 21
Jennifer Z3F9F3 91

I would like to extract a unique list from the list above onto another sheet based on the whether the 2nd and 3rd characters of the CTRL numbers match "3F", "3H", "22", "3D". Based on the table above, the result should look like:

Joe	X3F0F3	23
Tom	Z3F1F3	89
Jennifer	X3F9F3	91
Allison	A3D0FH	56
Rebecca	C3D0FH	73
Helen	S3D2FH	21

<tbody>
</tbody>

There are going to be cases where the list won't have any corresponding data, in case of which the results should be "".

I really appreciate your assistance with it in advance.

 

[Marcelo Branco]

You can use Advanced Filter with a formula

Something like

	A​	B​	C​	D​	E​	F​	G​	H​	I​
1​	NAME​	CTRL​	CODE​				NAME​	CTRL​	CODE​
2​	Joe​	X3F0F3​	23​		TRUE​		Joe​	X3F0F3​	23​
3​	Smith​	Y3MGG1​	12​				Allison​	A3D0FH​	56​
4​	Synder​	D23SD4​	32​				Tom​	X3F1F3​	89​
5​	Allison​	A3D0FH​	56​				Rebecca​	C3D0FH​	73​
6​	Tom​	X3F1F3​	89​				Helen​	S3D2FH​	21​
7​	Tommy​	E23SD4​	50​				Jennifer​	Z3F9F3​	91​
8​	Richard​	H61MN0​	11​
9​	Ellen​	Y3MGG1​	22​
10​	Samuel​	X3MGG1​	90​
11​	John​	L23SD4​	89​
12​	Rebecca​	C3D0FH​	73​
13​	Helen​	S3D2FH​	21​
14​	Jennifer​	Z3F9F3​	91​
15​

<tbody>
</tbody>

Leave E1 blank
Formula in E2
=ISNUMBER(MATCH(MID(B2,2,2),{"3F";"3H";"22";"3D"},0))

Data > Advanced filter
Pick Copy to
List Range: $A$1:$C$14
Criteria range: $E$1:$E$2
Copy to: $G$1:$I$1

Hope this helps

M.

 

[Kenneth Hobson]

Similar to M's method:

Sub MatchC23()
  Dim r As Range, a, ur As Range, c As Range, w As Long, tf As Boolean
  Set r = [A1].CurrentRegion
  a = r.Value
  For Each r In r.Rows
    Set c = Cells(r.Row, 2)
    'ISNUMBER(MATCH(MID(B2,2,2),{"3F";"3H";"22";"3D"},0))
    tf = IsNumeric(Application.Match(Mid(c, 2, 2), Split("3F 3H 22 3D"), 0))
    If tf Then
      If ur Is Nothing Then
        Set ur = r
        Else: Set ur = Union(ur, r)
      End If
    End If
  Next r
  If ur Is Nothing Then Exit Sub
  ur.Copy [D2]
  Application.CutCopyMode = False
End Sub

 

[Rick Rothstein]

Here is another macro that you can consider...

[table="width: 500"]
[tr]
	[td]Sub ExtractListWithConditions()
  Dim TheList As Variant
  TheList = Evaluate("IF(ISNUMBER(MATCH(MID(B2:B14,2,2),{""3F"",""3H"",""22"",""3D""},0)),A2:C14,"""")")
  Application.ScreenUpdating = False
  With Range("E1").Resize(UBound(TheList), 3)
    .Value = TheList
    .SpecialCells(xlBlanks).Delete xlShiftUp
  End With
  Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]

 

[LearnExcl]

Here is another macro that you can consider...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub ExtractListWithConditions()
  Dim TheList As Variant
  TheList = Evaluate("IF(ISNUMBER(MATCH(MID(B2:B14,2,2),{""3F"",""3H"",""22"",""3D""},0)),A2:C14,"""")")
  Application.ScreenUpdating = False
  With Range("E1").Resize(UBound(TheList), 3)
    .Value = TheList
    .SpecialCells(xlBlanks).Delete xlShiftUp
  End With
  Application.ScreenUpdating = True
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Sir, would there be a non-macro solution to this? If I could get a list extracted from the CTRL column via posssibly an index/match formula (I have tried multiple ways, but could only get the first matching value copied all the way down, but not a unique list), I guess I will be able to take care of the rest.

Any and all help will be appreciated.

 

[LearnExcl]

Marcelo, is it possible to extract a list off of CTRL column without using advance filter (i.e., a dynamic formula instead)?

 

[Marcelo Branco]

Marcelo, is it possible to extract a list off of CTRL column without using advance filter (i.e., a dynamic formula instead)?

You need an array formula to extract such list

Try

	A​	B​	C​	D​	E​
1​	NAME​	CTRL​	CODE​		CTRL List​
2​	Joe​	X3F0F3​	23​		X3F0F3​
3​	Smith​	Y3MGG1​	12​		A3D0FH​
4​	Synder​	D23SD4​	32​		X3F1F3​
5​	Allison​	A3D0FH​	56​		C3D0FH​
6​	Tom​	X3F1F3​	89​		S3D2FH​
7​	Tommy​	E23SD4​	50​		Z3F9F3​
8​	Richard​	H61MN0​	11​
9​	Ellen​	Y3MGG1​	22​
10​	Samuel​	X3MGG1​	90​
11​	John​	L23SD4​	89​
12​	Rebecca​	C3D0FH​	73​
13​	Helen​	S3D2FH​	21​
14​	Jennifer​	Z3F9F3​	91​

Array formula in E2 copied down
=IFERROR(INDEX(B:B,SMALL(IF(ISNUMBER(MATCH(MID(B$2:B$14,2,2),{"3F";"3H";"22";"3D"},0)),ROW(B$2:B$14)),ROWS(E$2:E2))),"")
Ctrl+Shift+Enter

M.

 

[Rick Rothstein]

You need an array formula to extract such list

Try

	A​	B​	C​	D​	E​
1​	NAME​	CTRL​	CODE​		CTRL List​
2​	Joe​	X3F0F3​	23​		X3F0F3​
3​	Smith​	Y3MGG1​	12​		A3D0FH​
4​	Synder​	D23SD4​	32​		X3F1F3​
5​	Allison​	A3D0FH​	56​		C3D0FH​
6​	Tom​	X3F1F3​	89​		S3D2FH​
7​	Tommy​	E23SD4​	50​		Z3F9F3​
8​	Richard​	H61MN0​	11​
9​	Ellen​	Y3MGG1​	22​
10​	Samuel​	X3MGG1​	90​
11​	John​	L23SD4​	89​
12​	Rebecca​	C3D0FH​	73​
13​	Helen​	S3D2FH​	21​
14​	Jennifer​	Z3F9F3​	91​

Array formula in E2 copied down
=IFERROR(INDEX(B:B,SMALL(IF(ISNUMBER(MATCH(MID(B$2:B$14,2,2),{"3F";"3H";"22";"3D"},0)),ROW(B$2:B$14)),ROWS(E$2:E2))),"")
Ctrl+Shift+Enter

Just noting that the OP wanted to output three columns of data per row, not just one.

 

[Kenneth Hobson]

It takes be awhile to get one of these just right. If no one posts the right formula later, I will make another effort.

This site has one of the better sub-array breakdowns I have seen.
http://www.exceltactics.com/make-filtered-list-sub-arrays-excel-using-small/4/

 

[Marcelo Branco]

Marcelo, is it possible to extract a list off of CTRL column without using advance filter (i.e., a dynamic formula instead)?

Just noting that the OP wanted to output three columns of data per row, not just one.

Rick,

I understood that in his last post he asked to extract only the CTRL column.

By the way, after extracting CTRL column, regular INDEX/MATCH formulas can easily extract the other columns.

M.