Comma (,) separated Concatenate values need full stop (.) end of the line

[nihar sharma]

Concatenated values separated with comma. But end of the line needs full stop (.)
What to do in following coding line?

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice 20151118
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
If x = lookupval Then
result = result & "" & x.Offset(0, indexcol - 1) & ", "
End If
Next x
CusVlookup = result
End Function


Thanks in advance

 

[Rick Rothstein]

Concatenated values separated with comma. But end of the line needs full stop (.)
What to do in following coding line?

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
'updateby Extendoffice 20151118
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
If x = lookupval Then
result = result & "" & x.Offset(0, indexcol - 1) & ", "
End If
Next x
CusVlookup = result & "."
End Function

Does what I show in red above do what you want?

 

[nihar sharma]

Tanks for quick response. Worked.

But want to finish the line only with (.)
What to do?

 

[Fluff]

If you want the brackets try

CusVlookup = result & "(.)"

Otherwise you need to supply more details.