Tuesday, November 8, 2011

UDF to concatenate all matching values

If You want to concatenate all the matching values. Snapshot below-

Here is the code -

Function concat(Lookupvalue As String, lookuprange As Range, colindex As Integer)
Dim pan As String
Dim acell As Range
For Each acell In lookuprange
If acell.Value = Lookupvalue Then
pan = pan & "," & acell.Offset(0, colindex).Value
End If
concat = Right(pan, Len(pan) - 1)
End Function

Download File

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...