Microsoft Office Forums - View Single Post

ArviLaanemets · 03-09-2018, 07:27 AM

Create a function (you have to change from *.xlsx to *.xlsm)

Code:

Public Function FoundInRange(parRange As Range, parValue As Variant) As Boolean
 
    Dim intRows As Integer
    intRows = parRange.Rows.Count
 
    Dim IsFound As Boolean
    Dim i As Integer
    IsFound = False
 
    For i = 1 To intRows
        If InStr(parRange(i), CStr(parValue)) > 0 Then
            IsFound = True
            Exit For
        End If
    Next i
 
    FoundInRange = IsFound
End Function

Now, into your table p.e. on row 2 enter the formula like

Code:

=FoundInRange($A$2:$A$6,B2)

, and copy it down.