find

[joi2]

does anyone know of a way to find the last row in an excel worksheet that does data and set the cursor to the next empty cell

[Chip Pearson]

Try something like the following:

Cells(Rows.Count, "A").End(xlUp)(2, 1).Select


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

"joi2" <[email protected]> wrote
in message
news:[email protected]...
>
> does anyone know of a way to find the last row in an excel
> worksheet
> that does data and set the cursor to the next empty cell
>
>
> --
> joi2
> ------------------------------------------------------------------------
> joi2's Profile:
> http://www.excelforum.com/member.php...o&userid=27554
> View this thread:
> http://www.excelforum.com/showthread...hreadid=486948
>

[joi2]

well I'M not sure whats goin to be in the cell so I dont think "A" is going to work

[Eric White]

An alternative to using the "End" functions, especially if the data area is
not nice and square.

with ws 'ws = Worksheet object
lastrow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
lastcol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column
End With

Set LastCell = ws.Cells(lastrow, lastcol)

In my experimentation, this is not as efficient as using the "End" method,
but it does find the very last cell of all "shapes" of data areas.


"joi2" wrote:

>
> well I'M not sure whats goin to be in the cell so I dont think "A" is
> going to work
>
>
> --
> joi2
> ------------------------------------------------------------------------
> joi2's Profile: http://www.excelforum.com/member.php...o&userid=27554
> View this thread: http://www.excelforum.com/showthread...hreadid=486948
>
>