Partially Match Numbers

[azumi]

Hello ninjas thanks for helping me all this time, but i need more help for this because im not that smart you know, thank you guys

 

[bosco_yip]

Maybe,

D2, Ctrl+Shift+Enter copied down :

=IF(LEN(B2)<>MIN(LEN(SUBSTITUTE(B2,MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),""))),"OK","KO")

Or,

=IF(COUNT(FIND(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),B2)),"OK","KO")

Regards
Bosco

 

[AlanSidman]

Option Explicit

Sub foo()
    Dim lr As Long, i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lr
        If InStr(Range("B" & i), Left(Range("A" & i), 1)) > 0 Then
            Range("D" & i) = "OK"
        ElseIf InStr(Range("B" & i), Mid(Range("A" & i), 2, 1)) > 0 Then
            Range("D" & i) = "OK"
        ElseIf InStr(Range("B" & i), Mid(Range("A" & i), 3, 1)) > 0 Then
            Range("D" & i) = "OK"
        ElseIf InStr(Range("B" & i), Right(Range("A" & i), 1)) > 0 Then
            Range("D" & i) = "OK"
        Else: Range("D" & i) = "KO"
        End If
    Next i

End Sub

 

[azumi]

Wow nice solution, thanks Bosco and Alan appreciate

 

[shrivallabha]

One more with ubiquitous LOOKUP...

=IF(ISNUMBER(LOOKUP(2^15,SEARCH(MID(A2,ROW($A$1:INDEX($A:$A,LEN(A2))),1),B2))),"OK","KO")