Loop

[MaxOvrdrv]

hi,

please dear god someone help me...

i'm stuck in an endless loop and i cannot for the life of me figure out why... i figure you guys will know.

please trust that all my variables are initiated properly, and are not empty... this is in a module, contained in a sub.

here's my code:

Please Login or Register  to view this content.

as you can see, i've even tried to set the UsedRange cells into a variable thinking that my adding a value inside the cell was somehow changing the UsedRange request.

Now here's the very weird part, if i change this line:
Sheet3.Cells(Cell.Row + 1, Cell.Column).Value = values(CInt(notfoundarr(i)))

For this line:
Sheet3.Cells(Cell.Row + 1, Cell.Column + 1).Value = values(CInt(notfoundarr(i)))

everything works fine, but the value is not in the right column in the new row.

please help!! :S

Matt

[jaslake]

Hi Matt

I suspect your problem is because you're working from the top down. When inserting (or deleting) rows, iterate through the range from the bottom up. Working top down when doing insertions or deletions, Excel gets "lost".

Do a search on "loop through range backward vba". If you can't get it sorted out, let me know.