How to get the row number of a row

[luolovepi]

desLastRow.Row <> desSheet.Cells(desSheet.Rows.count, "F").End(xlUp).Row

I want to compare the row number of the two sides. But it result in a problem that the left side requires object. What's wrong with this line?
note: desLastRow is a range indicates the last row having contents. desSheet is a worksheet.

Best regards,
lolo^^

 

[Rick Rothstein]

Can you show us some more code, specifically your Dim statement for the desLastRow variable and the statement where you assign a value to the desLastRow variable (also, some of the code surrounding them might help us also).

 

[luolovepi]

Hi Rick,

My code is really long. Hard to copy to here. The declaration and assignment of desLastRow is as follows:

Public desLastRow As Range 
desLastRow = desSheet.Cells(desSheet.Rows.count, "F").End(xlUp)

Actually I have another line of code whic is similar to the error line but is correct:

this = desLastRow.Row

Thanks!

Best regards,
lolo

Can you show us some more code, specifically your Dim statement for the desLastRow variable and the statement where you assign a value to the desLastRow variable (also, some of the code surrounding them might help us also).

 

[Rick Rothstein]

Are you running any On Error Resume Next statements? I ask because this line...

desLastRow = desSheet.Cells(desSheet.Rows.count, "F").End(xlUp)

should be raising an error. Since desLastRow is declared as a Range variable, you need to use Set to assign a range to it...

Set desLastRow = desSheet.Cells(desSheet.Rows.count, "F").End(xlUp)

Also, the error message you reported to us indicates that at that point in your code, it does not see desLastRow as a Range object. Perhaps there is a scope issue at work here. What module is the Public declaration of desLastRow in and what module is the error occurring at?

 

[luolovepi]

Hi Rick,

Thanks for your help!
I solved the problem by changing the value of a variable, since I forgot to change its value. Very strangely, I don't understand how that value is related to this error...

And do you happen to know the following:

Set des = Application.Workbooks.Open(desPathName, True, False)
        On Error GoTo browse

How come when there's a error when opening the file, the code does not go to 'browse' to run the code there?

Are you running any On Error Resume Next statements? I ask because this line...

desLastRow = desSheet.Cells(desSheet.Rows.count, "F").End(xlUp)

should be raising an error. Since desLastRow is declared as a Range variable, you need to use Set to assign a range to it...

Set desLastRow = desSheet.Cells(desSheet.Rows.count, "F").End(xlUp)

Also, the error message you reported to us indicates that at that point in your code, it does not see desLastRow as a Range object. Perhaps there is a scope issue at work here. What module is the Public declaration of desLastRow in and what module is the error occurring at?

 

[Rick Rothstein]

And do you happen to know the following:

Set des = Application.Workbooks.Open(desPathName, True, False)
        On Error GoTo browse

How come when there's a error when opening the file, the code does not go to 'browse' to run the code there?

The On Error statement should go before the line of code you anticipate might raise an error. Try reversing the two statements you posted.

 

[luolovepi]

Thank you so much Rick!!!!

Best regards,
lolo

The On Error statement should go before the line of code you anticipate might raise an error. Try reversing the two statements you posted.