concatif

[Betty]

How do I create this formula in VBA and use this on multiple cells? I've
never worked with this before

 

[Mike H]

Betty,

There isn't a formula called Concatif so I guess you have a UDF called that.
If you explain what your trying to do in some detail then someone will help.

Mike

 

[Dave Peterson]

JE McGimpsey created a UDF called MultiCat:
http://mcgimpsey.com/excel/udfs/multicat.html

You could start with his procedure and add your own criteria:

Option Explicit
Public Function concatif(ByRef rRng As Excel.Range, _
Optional ByVal sDelim As String = "") As String

Dim rCell As Range

For Each rCell In rRng.Cells
'add some criteria???
If rCell.Value = "" Then
'skip it
Else
concatif = concatif & sDelim & rCell.Text
End If
Next rCell

concatif = Mid(concatif, Len(sDelim) + 1)

End Function

If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)

 

[Betty]

Thank you so much

JE McGimpsey created a UDF called MultiCat:
http://mcgimpsey.com/excel/udfs/multicat.html

You could start with his procedure and add your own criteria:

Option Explicit
Public Function concatif(ByRef rRng As Excel.Range, _
Optional ByVal sDelim As String = "") As String

Dim rCell As Range

For Each rCell In rRng.Cells
'add some criteria???
If rCell.Value = "" Then
'skip it
Else
concatif = concatif & sDelim & rCell.Text
End If
Next rCell

concatif = Mid(concatif, Len(sDelim) + 1)

End Function

If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)

 

[Bernd P]

Hello,

Another example:
http://www.sulprobil.com/html/concatenate.html

Regards,
Bernd