Problem with last row data completing

[REspina]

Hello everyone!

I'm programming a macro for a customer that writes data in the last row comparing it with another workbook. The problem is the macro writes the data in the same row always. I tried with the object defined as "LR" and used Offset (1,0) option for select last row... but it doesn't work

Here is my code:

Please Login or Register  to view this content.

Thx for your help

[MarvinP]

Hi,

Set LR = Workbooks(Destino).Sheets("Planilla Metros Mes").Range("A999999:R999999").End(xlUp).Rows << Doesn't look right....

Try this instead:

LR = Workbooks(Destino).Sheets("Planilla Metros Mes").Cells(Rows.Count,,"A").End(xlUp).Row

Then add 1 to LR to get the next blank row.

http://www.rondebruin.nl/win/s9/win005.htm

Rows.Count may be a different number depending on which version of Excel you are using. Newer versions have a lot more rows.

[REspina]

I have a problema when I add 1 to LR. I realized LR isn't the last rows but its the second last when loops after writing the destiny file.