View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Martin Martin is offline
external usenet poster
 
Posts: 336
Default Conditional Concatenate

How about a UDF? Paste this into a VBA module in your workbook and then
enter into B7:
=CondConcat(B1:B5)

Function CondConcat(myRange As Range) As String
Application.Volatile
Dim myCell As Range
For Each myCell In myRange
If myCell.Value Then
CondConcat = CondConcat & myCell.Offset(0, -1).Value
End If
Next
End Function


"ExcelMonkey" wrote:

Can anybody tell me how to do a conditional concatenate. I have to columns
of data. Column A has numbers: 1-5 (A2:A6). Column B has booleans:
TRUE/FALSE (B2:B6)

A B
1 TRUE
2 FALSE
3 TRUE
4 FALSE
5 TRUE

in B7 I want to do an conditional concatenate using "&" character on column
A using the booleans in column B. The result would like like this: &1&3&5.
Note there is a "&" before the first number as well.

Thanks