ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   macro recording (https://www.excelbanter.com/excel-programming/438135-macro-recording.html)

CellShocked

macro recording
 
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

macro recording
 

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:

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).
.


CellShocked

macro recording
 
On Thu, 7 Jan 2010 18:45:01 -0800, OssieMac
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

macro recording
 

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




All times are GMT +1. The time now is 07:10 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com