Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop when found.
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop the loop when found.
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
return cells below stop when word found | Excel Discussion (Misc queries) | |||
Stop a loop when certain data is found | Excel Discussion (Misc queries) | |||
End a loop if text is not found | Excel Programming | |||
Loop to change cell color based on found value? | Excel Programming | |||
HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming |