my loop for Match only runs once why?

[akram-5]

my loop for Match only runs once why?

For Each Serce In mySrange
Ctests = Serce
For Each Docser In myFrange
If Ctests = Docser Then
MsgBox Docser & Ctest & "is same"
Else
Sheets("Summary").Range("N" & yLstrow).Value = Ctests 'find next available cell in summary

End If

Next Docser

Next Serce

 

[Joe4]

Without seeing you whole code (so we can see what mySrange, myFrange, and yLstRow are set to), and without seeing what your data looks like, it is going to be very difficult to help you.

Also, when posting your code, please do not take a snapshot/image of it. We really cannot work with that. Use Copy/Paste and use the Code Tags.
See here: How to Post Your VBA Code

 

[akram-5]

SLstrow = Sheets("Users").Cells(Rows.Count, "G").End(xlUp).Offset(0, 0).Row
sStartrw = Sheets("Users").Range("G2").Row

hLstrow = Sheets("Users").Cells(Rows.Count, "E").End(xlUp).Offset(0, 0).Row
hStartrw = Sheets("Users").Range("E2").Row

mySrange = Sheets("Users").Range("G" & sStartrw, "G" & SLstrow)
myFrange = Sheets("Users").Range("E" & hStartrw, "E" & hLstrow)
For Each Serce In mySrange
Ctests = Serce
For Each Docser In myFrange
If Ctests = Docser Then
MsgBox Docser & Ctest & "is same"
Else
Sheets("Summary").Range("N" & yLstrow).Value = Ctests 'find next available cell in summary

End If

Next Docser

 

[akram-5]

Last row was outside the first loop. i briught it in. problem solved.