Expand selection
 

I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

Range(ActiveCell, ActiveCell.End(xlDown)).Select
__________________________________________________ ______________________

"Tendresse" wrote in message
...
I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro
to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

That's exactly what i wanted. Thank you very much.

"Vasant Nanavati" wrote:

Range(ActiveCell, ActiveCell.End(xlDown)).Select
__________________________________________________ ______________________

"Tendresse" wrote in message
...
I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro
to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

Sub SelectFirstToLastInColumn()
Set TopCell = Cells(1, ActiveCell.Column)
Set BottomCell = Cells(65535, ActiveCell.Column)

If IsEmpty(TopCell) Then Set TopCell = TopCell.End(xlDown)
If IsEmpty(BottomCell) Then Set BottomCell = BottomCell.End(xlUp)
If TopCell.Row = 65535And BottomCell.Row = 1 Then ActiveCell.Select Else
Range(TopCell, BottomCell).Select
End Sub

"Tendresse" wrote:

I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

Another related question, please.

How do i resize the selection from both ends (top and bottom)? For example,
if the selection is from A1 to A10, how can i reduce it one cell from the top
and one cell from the bottom, so that it becomes from A2 to A9?

Again i need this macro to be usable for any selection in any other column.

Many thanks in advance
Tendresse

"Vasant Nanavati" wrote:

Range(ActiveCell, ActiveCell.End(xlDown)).Select
__________________________________________________ ______________________

"Tendresse" wrote in message
...
I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro
to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

Range(ActiveCell.Offset(1), ActiveCell.Offset(1).End(xlDown).Offset(-1)).Select


--


Gary


"Tendresse" wrote in message
...
Another related question, please.

How do i resize the selection from both ends (top and bottom)? For example,
if the selection is from A1 to A10, how can i reduce it one cell from the top
and one cell from the bottom, so that it becomes from A2 to A9?

Again i need this macro to be usable for any selection in any other column.

Many thanks in advance
Tendresse

"Vasant Nanavati" wrote:

Range(ActiveCell, ActiveCell.End(xlDown)).Select
__________________________________________________ ______________________

"Tendresse" wrote in message
...
I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro
to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse

Expand selection
 

It works perfectly. Thanks a million.

Tendresse

"Gary Keramidas" wrote:

Range(ActiveCell.Offset(1), ActiveCell.Offset(1).End(xlDown).Offset(-1)).Select


--


Gary


"Tendresse" wrote in message
...
Another related question, please.

How do i resize the selection from both ends (top and bottom)? For example,
if the selection is from A1 to A10, how can i reduce it one cell from the top
and one cell from the bottom, so that it becomes from A2 to A9?

Again i need this macro to be usable for any selection in any other column.

Many thanks in advance
Tendresse

"Vasant Nanavati" wrote:

Range(ActiveCell, ActiveCell.End(xlDown)).Select
__________________________________________________ ______________________

"Tendresse" wrote in message
...
I need help with a macro that expands the selection from the ActiveCell to
the last populated cell in the same column. For example:

if Cell A10 is the last populated cell in column A, and the ActiveCell is
A2, i want the macro to expand the selection to be from A2 to A10.

The active cell will not necessarily be in column A. So i want the macro
to
be valid for use on any column.

I'm using Excel 2003.

Many thanks
Tendresse