what is wrong with this single line of code (finding last row in a column)

[kbishop94]

Dim cntRows As Long
cntRows = ActiveWorkbook.Worksheets("ANALYTICS").Cells("F1").Find("*", , , , xlByRows, xlPrevious, , , False).Row

Trying to find the last row in Column F that is not blank.

I get 'Invalid procedure call of argument' (run-time error '5': )

 

[sykes]

Try using range, instead of cells...

Dim cntRows As Long
cntRows = ActiveWorkbook.Worksheets("ANALYTICS").Range("F1").Find("*", , , , xlByRows, xlPrevious, , , False).Row

Incidentally, if it's just the last used row you need, then you can use:

Dim cntRows As Long
cntRows = ActiveWorkbook.Worksheets("ANALYTICS").Range("F65536").end(xlup).Row

 

[kbishop94]

Try using range, instead of cells...

Dim cntRows As Long
cntRows = ActiveWorkbook.Worksheets("ANALYTICS").Range("F1").Find("*", , , , xlByRows, xlPrevious, , , False).Row

Incidentally, if it's just the last used row you need, then you can use:

Dim cntRows As Long
cntRows = ActiveWorkbook.Worksheets("ANALYTICS").Range("F65536").end(xlup).Row

Thank you, the second one worked for what I need.

Coincidentally, the first code returns a value of "1" (when I use MsgBox to show me the value of the variable) when there was actually 23 rows in column F.

The second code returns the value I was expecting (23)

Why would the first code only show "1"?

Thanks again, sykes.

 

[Fluff]

It Returns 1, because you are only searching one cell (namely F1)

 

[kbishop94]

It Returns 1, because you are only searching one cell (namely F1)

Thank you, Fluff.

How would I go about searching starting from F1 and down to the last cell? (the 2nd code sykes provided works fine, but I would like to understand how to locate the last row going from the top and down instead of going the very last cell on the sheet and searching up...) Thank you

 

[Fluff]

Like

Range("F1").End(xlDown).Offset(1).Row

But if you have any blank cells in col F you might get the wrong result

 

[kbishop94]

Like

Range("F1").End(xlDown).Offset(1).Row

But if you have any blank cells in col F you might get the wrong result

That's it. Thank you. & FWIW I dont have any blanks. Column E does have blanks in it, but the procedure right before this one, I had it copy just the cells with content from column E and paste that over to column F cell 1. thanks again for your help.

 

[Fluff]

You're welcome & thanks for the feedback