Code to select data

[Anita]

Hi - I am using v2007 and want to know code for selecting from row 2 to the
end of populated data in a spreadsheet. The length of the data will vary
everytime. Any help gratefully nreceived. Thanks. Anita

 

[Rick Rothstein]

Assuming you mean you want to select entire rows, give this a try...

Dim LastRow As Long
LastRow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
If LastRow > 1 Then Range("2:" & LastRow).Select

 

[Gary''s Student]

Sub anita()
Dim r As Range, nLastRow As Long
Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1
Rows("2:" & nLastRow).Select
End Sub

 

[Mike H]

Hi,

Try this

Rows("2:" & Cells.SpecialCells(xlLastCell).Row).Select
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Rick Rothstein]

That may not work correctly. Try this experiment. Go back to the worksheet
with your sample data and type something into any cell on a row, say, ten
rows down from the current end of your data. Now delete that entry by
selecting the cell and hitting the Delete key on your keyboard. Now run your
code and the selection should go down to the row you entered and then erased
the entry on (which is, if you used my suggestion, ten rows below the shown
end of data).

 

[Anita]

thanks everyone - I'll give it a go...

Assuming you mean you want to select entire rows, give this a try...

Dim LastRow As Long
LastRow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
If LastRow > 1 Then Range("2:" & LastRow).Select

--
Rick (MVP - Excel)





.