UDF to concatenate values

Question

I am trying to build a user defined function using VBA for excel. That would concatenate a list of stores which has a x mark in that row.

   Store1 Store2 St         


        

Answer 1

Short but intricate.

1. uses Evaluate to return an array of matches (Store numbers v x)
2. Filter removes the non-matches ("V")
3. Join to make the string from the final array of matches

UDF

Function Getx(Rng1 As Range, Rng2 As Range) As String
Getx = Join(Filter(Evaluate("=ÏF(" & Rng2.Address & "=""x""," & Rng1.Address & ",""V"")"), "V", False), ",")
End Function