vba code stops after 3600 rows

[rdhdsandi]

I have code to place items from one apreadsheet to another. It has worked for a couple of years. Now it doesn't pick up any rows beyon 3689. I have a table with 4000 rows and 21 columns. the code moves only 3 of the columns from "MASTER" to "COMPLIANCE" by row based on a date and an if then .

Is there an error in the Code? and why would it stop at that row?

Here is the code.

Please Login or Register  to view this content.

[Marcol]

Can't see anything obvious in the code that would stop it running.

However there is one oversight in your code

After the the last line insert

Please Login or Register  to view this content.

Also there is no need to use select, this will ony slow the process

Could you post a sample work book to provide a better insight to your problem?

[davesexcel]

Perhaps a small sample workbook to see what is supposed to happen when the code is run would help.

[rdhdsandi]

I know about the screenupdate. will do.

here is a sample workbook without the code however.

[rdhdsandi]

PLease us ethis sample workbook i made a correction in the data to be more complete

[Marcol]

Got a copy of your w/book.
Wont be on line again until 4 May

[davesexcel]

Your example does not appear to match the code...nothing happens when the macro is run.
Why would you supply a sample workbook without the code?

Column 8 and Column 10 are two different types of data, nothing will ever happen when you run the code.

[royUK]

Your example workbook is useless to find the error. There isn't sufficient rows to find an error after 3600

LastRow finds the last used cell in Column A, which only has one cell with data

I've attempted to at least tidy up your code & make it more efficient, note writing the original code in an earlier version, your LastRow could fail because you search up from 65536, this number could be much greater in 2007

Also any variables dealing with rows or columns should be declared as Long

Please Login or Register  to view this content.