Grouping based on a condition

[jschrock]

So, I have a list of Yes/No questions and what I am trying to do is create a string of the terms that have a Y beside them. For example in the data below, I would like the cell to return Agitated, Angry, Depressed and I will reference that in a different part of a sheet. I would like for this to be dynamic, so if I put a 'Y' beside Apathetic, the string would read Agitated, Angry, Apathetic, and Depressed. I hope that makes sense. Here is the data:

Mood:	Yes/No
Agitated	Y
Angry	Y
Anxious
Apathetic
Depressed	Y
Dysthymic
Elevated
Emotional
Fearful
Manic
Withdrawn
Other:

<tbody>
</tbody>

<tbody>
</tbody>

I know I could do this with a bunch of If statements stacked together, but I would love to exclude or skip the items that are blank.

Thanks in advance!!!

 

[Fluff]

Using VBA

Function jschrock(Rng As Range, Optional Crit As String = "Y")
    Dim Cl As Range
    Application.Volatile
    For Each Cl In Rng
        If Cl.Offset(, 1).Value = Crit Then jschrock = jschrock & Cl.Value & ", "
    Next Cl
    jschrock = Left(jschrock, Len(jschrock) - 2)
End Function

Used in the sheet like

Book1
	AO	AP	AQ
25	Agitated	Y	Agitated, Anxious, Apathetic, Dysthymic, Manic
26	Angry
27	Anxious	Y
28	Apathetic	Y
29	Depressed
30	Dysthymic	Y
31	Elevated
32	Emotional
33	Fearful
34	Manic	Y
35	Withdrawn
36	Other:
Master

Cell Formulas
Range	Formula
AQ25	=jschrock(AO25:AO36,"Y")

 

[sandy666]

another way with Pivot Table

Yes/No	Y
Mood:
Agitated
Angry
Depressed

or

Yes/No	Y
Mood:
Agitated	Angry	Depressed

 

[jschrock]

Thank you guys so much for all of the help!!! It's always awesome to see how quickly everyone responds on here and is so helpful and creative.....best free subscription, ever!!!

 

[Fluff]

You're welcome & thanks for the feedback

 

[sandy666]

You're welcome

Have a nice day