Hello,


Anybody knows how to find MATCH numbers ?

Example :

Cell A1 = 1457
Cell A2 = 2467

Return MATCH numbers are 4 and 7.



Thank You.

Hi Toyota58,

This UDF will do it:

Public Function Matchdigits(string1 As String, string2 As String) As String
Dim length As Integer
length = WorksheetFunction.Min(Len(string1), Len(string2))
matchdigits = ""
For l = 1 To length
If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits =
Matchdigits & Mid(string1, l, 1)
Next l
End Function

Put in the cell you want the result in

=Matchdigits(A1,A2)

Regards,
Stefi

€žtoyota58€� ezt Ã*rta:

Hello,


Anybody knows how to find MATCH numbers ?

Example :

Cell A1 = 1457
Cell A2 = 2467

Return MATCH numbers are 4 and 7.



Thank You.

Sorry...I'm a newbie. Am I doing the right thing ? I went to TOOLS
MAKRO VB Editor (ALT + F11) Insert module...copy and paste ...all
I get is Syntax error...


If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits =
Matchdigits & Mid(string1, l, 1)


..

Hi!


If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits =
Matchdigits & Mid(string1, l, 1)

This UDF works but the problem is line wrap. The above code needs to be all
on one line or use the line continuation character: _ (underscore)

If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits = _
Matchdigits & Mid(string1, l, 1)

Biff

"toyota58" wrote in message
oups.com...
Sorry...I'm a newbie. Am I doing the right thing ? I went to TOOLS
MAKRO VB Editor (ALT + F11) Insert module...copy and paste ...all
I get is Syntax error...


If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits =
Matchdigits & Mid(string1, l, 1)


.

Dear Stefi and Biff,

Thank You so much . It works OK now.

Very sorry again but ...the formula can only work in a certain way.

Example

Cell A1 = 2469
Cell A2 = 1359
Cell A3 = 9 This works OK


But it won't work if...

Cell A1 = 24569
Cell A2 = 69
Cell A3 = No Return


Cell A1 = 134
Cell A2 = 467
Cell A3 = No Return


Sorry to trouble you all but it was my mistake not to explain in
detail...