Stop the loop when found.

[hfazal]

I have the below comparison between two columns. Where the cells match, and a
different comparison of an different cell pair on the same row also matches,
it highlights a row and fills in a cell using data from its matching cell. My
problem is that, I want it so that once it's found a match, it should stop
the loop and go on to the next item in the range.

Hope someone can help.

For Each rcellIm In rngIm.Cells
For Each rcellDt In rngDt.Cells
If InStr(1, rcellDt.Value, rcellIm, vbTextCompare) Then
If rcellDt.Offset(0, 2) = rcellIm.Offset(0, 10) Then
rcellDt.Offset(0, 5) = rcellIm.Offset(0, 3)
rcellIm.EntireRow.Interior.ColorIndex = 35
End If
End If
Next rcellDt
Next rcellIm

Thanks
--
H

[Jason Zischke]

Try This:

Stoploop = "No"
For Each rcellIm In rngIm.Cells
For Each rcellDt In rngDt.Cells
If InStr(1, rcellDt.Value, rcellIm, vbTextCompare) Then
If rcellDt.Offset(0, 2) = rcellIm.Offset(0, 10) Then
rcellDt.Offset(0, 5) = rcellIm.Offset(0, 3)
rcellIm.EntireRow.Interior.ColorIndex = 35
Stoploop = "Yes"
Exit For
End If
End If
Next rcellDt
If Stoploop = "Yes" Then
Exit For
End If
Next rcellIm


Jason Zischke



"hfazal" wrote:

> I have the below comparison between two columns. Where the cells match, and a
> different comparison of an different cell pair on the same row also matches,
> it highlights a row and fills in a cell using data from its matching cell. My
> problem is that, I want it so that once it's found a match, it should stop
> the loop and go on to the next item in the range.
>
> Hope someone can help.
>
> For Each rcellIm In rngIm.Cells
> For Each rcellDt In rngDt.Cells
> If InStr(1, rcellDt.Value, rcellIm, vbTextCompare) Then
> If rcellDt.Offset(0, 2) = rcellIm.Offset(0, 10) Then
> rcellDt.Offset(0, 5) = rcellIm.Offset(0, 3)
> rcellIm.EntireRow.Interior.ColorIndex = 35
> End If
> End If
> Next rcellDt
> Next rcellIm
>
> Thanks
> --
> H