Error 1004 in certain line - The code works until line 152

Hi everyone,
As the title said I have the 1004 error with in my code i = 153. This code copy the value of serial number from the Sheet "Control de Triconos" to another sheets called F101, F102, etc between a range of dates in two turns A and B. The code reads the respective sheet name in "Control de Triconos" cols n°2, but when i = 153 the program crashes and got the error number 1004.

The code is:

Please Login or Register  to view this content.

Plz help me!
Sorry for my bad english and THX to all

Hola REspina,

Por favor, lee las reglas del foro, especialmente #3? Gracias.

Can you provide a copy of your workbook? It seems strange to get an error there at 152 (or 153) because if the error did not happen before then it should not happen at that number...

Just in case though, I do suggest adding .Value at the end of cell references when it is their value you are looking at:

Please Login or Register  to view this content.

Also, if i j and k are just loop variables that will not have decimals, then it is usually better to Dim as Long instead of Double.

Thanks for fixing your post to add Code Tags

REspina, lo que quiero ver es el "workbook"... porque el problema me parece muy extran~o y logicamente no veo porque. Para poner el workbook en tu post, aprieta "Go Advanced" bajo el mensaje (en la esquina derecha de la pagina). Ahi veras un a opcion para "Manage Attachments", la cual te dejara escoger una "file" para mandar.

Mi espan~ol no es tan bueno como antes

Pero trataste lo que sugeri de an~adir ".Value" y cambiar "Double" a "Long"?

Originally Posted by Arkadi

Pero trataste lo que sugeri de an~adir ".Value" y cambiar "Double" a "Long"?

I did, but the code still crashing.
Here is my workbook y deleted some stuff due to the weight of archive.

The yellow button is the problem.

I tried.... when i = 152 it takes very long... and j goes very high, but eventually it got to i = 153 and no error.

I also tried at the start i=153, with no error.

BUT: The code in the workbook is not exactly the same as what you posted. When I try the code you put here in your first post, the error does come when i = 152, I think because your code uses j for row number. When j reaches 1,048,576 (which is maximum rows in excel), then this line: "Sheets(Equipo).Cells(j + 1, 1)" means row 1,048,577, which does not exist in excel 2010 (and 2013/2016).

So you need to look at your code, and fix it so j does not go above 1,048,575 (I think that is way too high anyway, probably you need to fix the loops)

Well here was my test:

I put "On Error GoTo Errores" at the start, change i =2 to i=152 so you don't have to wait so long, and I changed "Errores:
MsgBox (Err.Description)" to :

Please Login or Register  to view this content.

This told me that j was the maximum number of rows when the error happened, and j+1 as a row number does not exist. You want to modify your code so that the looping stops when the last row with data has been reached, because "Do Until Sheets(Equipo).Cells(j, 1) & Sheets(Equipo).Cells(j, 2) = F_termino" will never stop if the cell never matches the value of F_termino

Entonces ya no es necesario ponernos en contacto?
Please mark the thread as solved if the problem is gone?
I'm glad I was able to help... I was about to examine the code in more detail to find a solution for your problem, but sounds like you have it fixed... I bet it is faster now too?
I've never been further south than Costa Rica, but I would love to visit Chile, maybe I'll see you there some day. I grew up in Costa Rica/Nicaragua.