Find Value Based On Criteria

[pjotrsk]

Hi,

I propose:
=find_any($A$2:$D$1884;1;J2;4)

This is user-defined formula:

Function find_any(res As Range, find_in As Long, find_val As String, find_out As Long)
For Each res In res
    If IsError(res.Cells.Value) Then GoTo turp
    If res.Column = find_in And InStr(res.Cells.Value, find_val) > 0 Then find_any = res(res.Row, find_out): Exit Function
turp:
Next
End Function