Question about additional search

[freggel99]

Hi there,

I got this code, in here the found code is added to afound
I want to know how i can get a message for the items that are not found i cannot get it done by myself....

Code: ( Search question )

,;search for each element and add found elements to afound
,es.GetCells(a2 "A:A")
,for j 0 a.len
,,for(k 0 a2.len) if(a[0 j]~a2[0 k]) break
,,if(k<a2.len)
,,,afound[afound.redim(-1)]=a[0 j]
,,,a[0 j].all ;;clear
,
,;message
,if(afound.len)
,,for(j 0 afound.len) s2.formata("%s[]" afound[j])
,,mes s2 "Found" ""

TIA