I have 2 columns that contain text that is different, but almost matches
except for 1 character that does not. i want to find out what is the
character in the cell that does NOT match.
ie.
column a = APTK745 (i want to return the P)
column b = ARTK745 (i want to return the R)
or
column a = ANPF841 (i want to return the F)
column b = ANPE841 (i want to return the E)

I have a solution if the changed characters are in the same place or you are
looking for the first character that is changed in a cell.


Function FindDif (strFirst as string, strSecond as string) as string


Dim iLoopChar as integer, bFoundDif as boolean

For iLoopChar = 1 to len(strFirst)
If mid (strFirst,iloopchar,1) < mid (strSecond,iloopchar,1) then
bFoundDif = true
Exit for
End if
Next iLoopChar

If bFoundDif then

FindDif = mid (strFirst,iloopchar,1)

Else
FindDif = €œN/A€�

End if


exit Funciton


Good luck

--
Stewart Rogers
DataSort Software, L.C.


"ky1234" wrote:

I have 2 columns that contain text that is different, but almost matches
except for 1 character that does not. i want to find out what is the
character in the cell that does NOT match.
ie.
column a = APTK745 (i want to return the P)
column b = ARTK745 (i want to return the R)
or
column a = ANPF841 (i want to return the F)
column b = ANPE841 (i want to return the E)