VBA Code to return Column header based on Criteria

[nr6281]

I have a spread sheet with =AND formulas that return TRUE OR FALSE based on the need.

From Column AN to AZ are either TRUE or FALSE, I would like to see if there can be a code for Column BA to return with the name of header of the column based on the criteria.

In column AN (header named as A) I check for "False", Column AO (header named as B) I check for "TRUE" Column AP (header named as C) I check for "False". What I check for changes based on the formula,

Example what the code should return

For example 1: in column AN (header: A) has only "TRUE", Column AO (Header B) has both "TRUE" and false Column AP (Header C) has only "False" . SO in Column BA (Header: What to check?) should return with header names i:e B and C.
Reason: Header A I check for false but there is no False (So the code should return only header B and C)

For example 2: in column AN (header: A) "TRUE", Column AO (Header B) has only "False" Column AP (Header C) has "False" . SO in Column BA (Header: What to check?) should return with header names i:e C
The reason Column AN header should not come is because I am supposed to check for False and since there are no false it should not return the header in column BA.

Please see the attached template I have explained with few examples highlighted in green (Table to the right Column Q/R { Is what we are supposed to filter and check for})

https://www.mrexcel.com/forum/excel-...-criteria.html (query here but not able to provide with a template or example sets)

[AliGW]

Not sure this requires VBA.

[nr6281]

Can this be done with a formula even thou the cells arent values?

[jindon]

UDF

Use in cell like
P3:
=JoinIf($B$1:$N$1,B3:N3,$Q$3:$R$15,", ")

Function JoinIf(Hdr As Range, Data As Range, Crit As Range, JoinStr As String) As String
    JoinIf = Join(Filter(Hdr.Parent.Evaluate("if(isnumber(match(" & Hdr.Address & "&char(34)&" & Data.Address & "&char(34)," & _
             Crit.Columns(1).Address & "&" & Crit.Columns(2).Address & ",0))," & Hdr.Address & ")"), False, 0), JoinStr)
End Function

[nr6281]

Not sure what u meant Am i supposed to put the code in a module?

[jindon]

See formula in col.P................

[jindon]

No idea about what you are talking about.

[nr6281]

Hi,

Thank you that works just perfect.