VBA multilookup add-in

>>>>>>>>>>> Please click here to download addin

Or copy paste below code in your excel module

Function multilookup(lookupvalue As String, lookuprange As Range, Optional columnnumber As Integer = "2")

Dim i As Integer

Dim Result As String

For i = 1 To lookuprange.Rows.Count

If lookupvalue = lookuprange.Cells(i, 1).Value Then

Result = Result & " " & lookuprange.Cells(i, columnnumber) & ","

End If

Next i

multilookup = Left(Result, Len(Result) - 1)

End Function

Comments

Get multiple lookup values in single cell

Option Explicit Function RupeesInWords(ByVal MyNumber As Double) As String Dim Rupees As String Dim Paise As String Dim Temp As String Dim DecimalPlace As Integer MyNumber = Round(MyNumber, 2) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Rupees = Left(MyNumber, DecimalPlace - 1) Paise = Mid(MyNumber, DecimalPlace + 1) Else Rupees = MyNumber Paise = "" End If RupeesInWords = "" If Val(Rupees) > 0 Then RupeesInWords = ConvertToWords(Rupees) & " Rupees" End If If Val(Paise) > 0 Then RupeesInWords = RupeesInWords & " and " & ConvertTwoDigits(Left(Paise & "00", 2)) & " Paise" End If RupeesInWords = Application.WorksheetFunction.Trim(RupeesInWords) & " Only" End Function Private Function ConvertToWords(ByVa...

JA EXCEL

Search This Blog