Cut and Paste Code Error

[Gos-C]

Hi all,

I am working on the following code:

Please Login or Register  to view this content.

It is failing at the line:

Please Login or Register  to view this content.

Can someone please help me fix it.

Thank you,
Gos-C

[davesexcel]

Is there anything below A13? if not, you will receive an error.

[Gos-C]

Hi davesexcel,

Yes, there is data down to row 50.

Here is the error message:

Run-time error
Application-defined or object-defined error

[davesexcel]

I don't get the error, have you a test file I can enter into the InputBox, I have the first part of the code commented because I can't use it.

[Gos-C]

Here is a sample of the file. Thank you.

Gos-C

[lisa_jd]

is this the problem?

Please Login or Register  to view this content.

there is no paste code

[Gos-C]

Hi lisa_jd & davesexcel,

I think the problem is with the LastRow because I did a Debug.Print LastRow and I got 1.

Can you please advise.

Thank you,
Gos-C

[davesexcel]

Here is one way

Please Login or Register  to view this content.

[Gos-C]

Hi davesexcel,

I got the same error. Could it be that the LastRow line is not pointing to the correct sheet?


Here are some interesting results, which may help you figure out the problem:

Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

=49

Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row - 13

=36

Debug.Print LastRow

=1

This makes me suspect that LastRow in the code is not for the correct sheet, Sname, as it should. If so, how do I fix it.

Thank you,
Gos-C

[davesexcel]

how about.

Please Login or Register  to view this content.

How fast this could be answered if you supplied a small example.

[Gos-C]

davesexcel,

That's it!

Please Login or Register  to view this content.

Now it's working.

Thank you kindly,
Gos-C