VBA Function

[yesterdays]

I'm using below code for joining multiple range(s)'s value to form a string, it work fine,
But now i need to use other formula to form the range inside it, it doesn't work anymore.
please see sample below

	A	B	C
1	a
2	c
3	b
4
5

<tbody>
</tbody>

join(", ",A1:A3) will return a, c, b
but when i add a condition to the range, like <>a , it wont work anymore
the result expected is c, b

I know it like the arguments used in Max WorksheetFunction.Max method but can't find the information for it to work:
"Arguments can either be numbers or names, arrays, or references that contain numbers."

Public Function join(d As String, ParamArray r() As Variant) As String
    Dim s As String, c As Range
    Dim elem As Range
    Dim i As Long
    For i = LBound(r) To UBound(r)
        For Each elem In r(i)
            For Each c In elem
            If CBool(Len(c.Text)) Then _
            s = s & IIf(Len(s), d, vbNullString) & c.Value
            Next c
        Next elem
    Next i
    join = s
End Function

p/s please pardon my English skill.

 

[Norie]

What do you mean by 'add a condition'?

Where/how/why are you doing that?

 

[yesterdays]

for example, my formula would be
=join(", ",if(A1:A3<>"a",A1:A3))
and then ctrl shift enter
the reason is i want to just join field that satisfied some conditions.

 

[yesterdays]

Bump!

 

[Norie]

When passed to the function this,

IF(A1:A3<>"a",A1:A3)

isn't passed select a simple array, it's passed select an array of arrays, of event an array of an array of arrays - couldn't quite figure that out.

Anyway, whatever it is it stops the function working.