Concatenate if

[rjbinney]

I have a table with a long list of items, followed by multiple columns of potential "attributes" for that list. The attributes are ticked either on or off.

	A	B	C	D	E	F	G	H
1		Organic	Juicy	Delicious	Deadly	Seeds	Carbon-Based	Carbon Steel
2	Apples	x	x	x		x	x
3	Oranges	x	x	x			x
4	Muskrats	x		x	x		x
5	Muskets				x			x

<tbody>
</tbody>

I'd like to be able to make a list that concatenates JUST the ticked attributes

Apples		Organic, Juicy, Delicious, Seeds, Carbon-Based
Oranges		Organic, Juicy, Delicious, Carbon-Based
Muskrats		Organic, Delicious, Deadly, Carbon-Based
Muskets		Deadly, Carbon Steel

<tbody>
</tbody>

So I built a second table, essentially:
=IF (ISBLANK (B2),"",", B$1)

Which gives me

	J	K	L	M	N	O	P
1	Organic	Juicy	Delicious		Seeds	Carbon-Based
2	Organic	Juicy	Delicious			Carbon-Based
3	Organic		Delicious	Deadly		Carbon-Based
4				Deadly			Carbon Steel

<tbody>
</tbody>

I know I can copy that second table into word and manipulate it into the desired list, but is there a clever way (or array) to build that same list in a cell?

(The list is 28 attributes, so that's a lot of nested IFs!)

 

[Fluff]

If you have Office 365, have a look at TextJoin, otherwise how about

Function rjbinney(Rng As Range) As String
   Dim Cl As Range
   For Each Cl In Rng
      If Cl = "x" Then
         If rjbinney = "" Then rjbinney = Cells(1, Cl.Column) Else rjbinney = rjbinney & ", " & Cells(1, Cl.Column)
      End If
   Next Cl
End Function

Used =rjbinney(B2:H2)
It assumes that you headers are in row 1, but that can be changed if needed.

 

[rjbinney]

Will look into TextJoin.

I'm on a flight, and Gogo and OneDrive just a$^-f#*^ed each other, so I need to do the last 60 minutes' worth of work over again.

Thanks!

 

[AlKey]

Try this
Enter array formula in I2 and copy down

[B]=TEXTJOIN(", ",1,IF(B2:H2="x",B$1:H$1,""))[/B]

**Must be entered with Ctrl+Shift+Enter key combination.

Unknown
	A	B	C	D	E	F	G	H	I
1		Organic	Juicy	Delicious	Deadly	Seeds	Carbon-Based	Carbon Steel	Concatenated
2	Apples	x	x	x		x	x		Organic, Juicy, Delicious, Seeds, Carbon-Based
3	Oranges	x	x	x			x		Organic, Juicy, Delicious, Carbon-Based
4	Muskrats	x		x	x		x		Organic, Delicious, Deadly, Carbon-Based
5	Muskets				x			x	Deadly, Carbon Steel
Sheet2

 

[AlKey]

Or you can use this non-array version

[B]=TEXTJOIN(", ",1,INDEX(REPT(B$1:H$1,B2:H2="x"),0))[/B]

 

[rjbinney]

I was originally going to give Fluff 10 out of 10 for introducing me to TextJoin, coz that worked like a charm - did exactly what I asked.

But.

But.

But that formula, AlKey, was the bee's knees. Did exactly what I needed.

Thirteen out of ten!

(A "Huzzah" might even be in order)

Thank you,