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
Next
concat = Right(pan, Len(pan) - 1)
End Function
Download File
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you have added the shape in the sheet and now you want to change it color , text , font size ,etc using VBA. Snapshot below Code- Su...
-
If you want to add a new pop up button on mouse right click menu and as soon as you click on it . It shows you multiple buttons with macro a...
No comments:
Post a Comment