Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
concatif
How do I create this formula in VBA and use this on multiple cells? I've
never worked with this before |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
concatif
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 "Betty" wrote: How do I create this formula in VBA and use this on multiple cells? I've never worked with this before |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
concatif
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 he 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 wrote: How do I create this formula in VBA and use this on multiple cells? I've never worked with this before -- Dave Peterson |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
concatif
Thank you so much
"Dave Peterson" wrote: 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 he 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 wrote: How do I create this formula in VBA and use this on multiple cells? I've never worked with this before -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|