Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

macro recording

4 views
Skip to first unread message

CellShocked

unread,
Jan 7, 2010, 8:47:23 PM1/7/10
to
Hi.

When I record a macro,and move to the last cell in a worksheet, the
recorded command is correct as:

ActiveCell.SpecialCells(xlLastCell).Select

However, I then wish to move to the first cell in that last row by way
of the macro but the move gets recorded as an absolute cell reference.
That won't work later when the table size changes.

What is the command to pop left to the first column cell in the
currently occupied (last, in this case) row that does not use any
explicit cell references ("A" is allowed).

OssieMac

unread,
Jan 7, 2010, 9:45:01 PM1/7/10
to

ActiveCell.SpecialCells(xlLastCell).Select
Cells(Selection.Row, "A").Select
or
Cells(Selection.Row, 1).Select

A little more info. If after selecting the last cell, if all cells between
the selected cell and Column A (on the same row as the selected cell) have
data then you can hold the Ctrl key and press left arrow and it would record
as follows.

ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select


--
Regards,

OssieMac


"CellShocked" wrote:

> .
>

CellShocked

unread,
Jan 7, 2010, 9:51:33 PM1/7/10
to
On Thu, 7 Jan 2010 18:45:01 -0800, OssieMac
<Ossi...@discussions.microsoft.com> wrote:

>
> ActiveCell.SpecialCells(xlLastCell).Select
> Cells(Selection.Row, "A").Select
>or
>Cells(Selection.Row, 1).Select
>
>A little more info. If after selecting the last cell, if all cells between
>the selected cell and Column A (on the same row as the selected cell) have
>data then you can hold the Ctrl key and press left arrow and it would record
>as follows.
>
> ActiveCell.SpecialCells(xlLastCell).Select
> Selection.End(xlToLeft).Select


thanx

OssieMac

unread,
Jan 7, 2010, 10:01:01 PM1/7/10
to

Can also find the last used cell in column A with the following. You can
edit column A to any column you wish to find the last used cell in that
column.

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


The following finds the last used cell in a row. Edit the row number for any
particular row.

Cells(1, Columns.Count).End(xlToLeft).Select

--
Regards,

OssieMac


0 new messages