Help with loop

[th081]

Hi

I have a loop like below:

For i = 2 to Ubound(Unit)
m = 0

Do
m = m + 1
Loop until Data(m,1) = Unit(i,1) and Data(m,4) = NoC(i,1)

'then do something once you found match


Next i

However sometimes there is no match and i want it to log on a sheet named error for which Unit(i,1) there was no match and then continue. How would i capture that in the loop.

Thanks

 

[JLGWhiz]

Here is one approach

For i = 2 to Ubound(Unit)
    m = 0
    Do 
        m = m + 1
    Loop until Data(m,1) = Unit(i,1) and Data(m,4) = NoC(i,1)
    [COLOR=#ff8c00]If Data(m, 1) <> Unit(i, 1) Or Data(m, 4) <> NoC(i, 1) Then
        sheets("error").Cells(Rows.Count, 1).End(xlUp)(2) = Unit(i, 1) & "Not matched"
    End If[/COLOR]
 'then do something once you found match
 Next i

You can play with the way it posts to the error sheet.