Get Last Row

E

efi

Hi,
How can I retrieve the last row in a specified colum that full with
information?

I tried to use in Sheet2.Cells.SpecialCells(xlLastCell).Row
but in big numbers it flew.
thanks.
 
N

Nilopher

Hi Efi,

"Sheet2.Cells.SpecialCells(xlLastCell).Row"
This will give you the last row irrespective of column. As you asked,
you need to find out last row of a particular column that filled with
data. Try following but, some function should be there to minimize the
code.

Dim i As Integer

i=1

While ActiveSheet.Rows.Cells(i, 1).Value <> "" '## here 1
represents column "A" ##'
i = i + 1
Wend
MsgBox i - 1

Nilopher.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Changing row background from external program 0
Need Help with a VBA subroutine 0
Footer On Last Page Only Not Working 1
First Filtered cell in range 2
Concise Way To Select All Rows Except First? 6
Array with many cells from a row but not in order or together 11
macro recording 3
How to get the last row in a column without selecting 2

Top