concatif

  • Thread starter Thread starter Betty
  • Start date Start date
B

Betty

How do I create this formula in VBA and use this on multiple cells? I've
never worked with this before
 
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
 
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.)
 
Thank you so much

Dave Peterson said:
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.)
 
Back
Top