Need to Find the End Of Spreadsheet

[travelingwilly]

Hello Folks

I wish to read a spreadsheet that may have blanks. I am able to read to the end of a Sheet by using....
With Sheets("PLANBUILD").Range("a1", Range("a1").End(xlDown))
For tst = 1 To .Rows.Count
... do work work with .cells(tst,1 ) ....
Next tst

That works great if there are no blanks in col A in any rows. But Now I have a formated sheet. where I have a code on line 1 cell 1 and data line 2 ,3 4, 5 but not in row 1. The abouve will go to the first record and stop. How can I find the rowcount of active rows or somthiong like that
<table border=1>
example
<tr><td>parta</td><td>descr</td></tr>
<tr><td></td><td>information 1</td></tr>
<tr><td></td><td>information 2</td></tr>
<tr><td></td><td>information3</td></tr>
<tr><td>partb</td><td>descr</td></tr>
<tr><td></td><td>information 1</td></tr>
<tr><td></td><td>information 2</td></tr>
<tr><td></td><td>information3</td></tr>

 

[Richie(UK)]

Hi,

You could find the last row like this:

Sub FindLastRow()
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox LastRow
End If
End Sub

This was taken from the VBA / Ranges section of Dave Hawley's site. Give it a try!
http://www.ozgrid.com/

HTH

 

[travelingwilly]

Cool It works....