Last used row

[[email protected]]

I need to loop through all the rows on a worksheet ...

There are patches where there are groups of existing but unused rows
....

How do I get the last used row in VBA?

Thanks.

[Chip Pearson]

Try something like the following. Change the "A" to the
appropriate column.

Dim LastRow As Range
Set LastRow = Cells(Rows.Count, "A").End(xlUp)



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


<[email protected]> wrote in message
news:[email protected]...
>I need to loop through all the rows on a worksheet ...
>
> There are patches where there are groups of existing but unused
> rows
> ...
>
> How do I get the last used row in VBA?
>
> Thanks.
>

[Gary''s Student]

Try:

Sub Find_lur()
Dim j, i, k As Long
' gsnu find last used row
k = 0
j = 65536
For i = j To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Else
k = i
Exit For
End If
Next i
MsgBox (k)
End Sub
--
Gary''s Student


"[email protected]" wrote:

> I need to loop through all the rows on a worksheet ...
>
> There are patches where there are groups of existing but unused rows
> ....
>
> How do I get the last used row in VBA?
>
> Thanks.
>
>

[[email protected]]

Thanks Chip.

Where almost there...

How do I get the integer value of the last row from the Range LastRow ?

> Dim LastRow As Range
> Set LastRow = Cells(Rows.Count, "A").End(xlUp)
>
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
> <[email protected]> wrote in message
> news:[email protected]...
> >I need to loop through all the rows on a worksheet ...
> >
> > There are patches where there are groups of existing but unused
> > rows
> > ...
> >
> > How do I get the last used row in VBA?
> >
> > Thanks.
> >

[Dave Peterson]

Dim LastRowNumber as long
lastrownumber = lastrow.row





[email protected] wrote:
>
> Thanks Chip.
>
> Where almost there...
>
> How do I get the integer value of the last row from the Range LastRow ?
>
> > Dim LastRow As Range
> > Set LastRow = Cells(Rows.Count, "A").End(xlUp)
> >
> >
> >
> > --
> > Cordially,
> > Chip Pearson
> > Microsoft MVP - Excel
> > Pearson Software Consulting, LLC
> > www.cpearson.com
> >
> >
> > <[email protected]> wrote in message
> > news:[email protected]...
> > >I need to loop through all the rows on a worksheet ...
> > >
> > > There are patches where there are groups of existing but unused
> > > rows
> > > ...
> > >
> > > How do I get the last used row in VBA?
> > >
> > > Thanks.
> > >

--

Dave Peterson

[Chip Pearson]

> How do I get the integer value of the last row from the Range
> LastRow ?

LastRow.Row


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


<[email protected]> wrote in message
news:[email protected]...
> Thanks Chip.
>
> Where almost there...
>
> How do I get the integer value of the last row from the Range
> LastRow ?
>
>> Dim LastRow As Range
>> Set LastRow = Cells(Rows.Count, "A").End(xlUp)
>>
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting, LLC
>> www.cpearson.com
>>
>>
>> <[email protected]> wrote in message
>> news:[email protected]...
>> >I need to loop through all the rows on a worksheet ...
>> >
>> > There are patches where there are groups of existing but
>> > unused
>> > rows
>> > ...
>> >
>> > How do I get the last used row in VBA?
>> >
>> > Thanks.
>> >
>

[[email protected]]

Oh ... Sweet.

Thanks guys.

Dim val as Integer
val = sheet.Cells(rows.Count, "A").End(xlUp).Row