Selecting column within a selection

[don]

I would like to select a column within a selection.

For instance if the original selection is A110

I would like to select D110 and then manipulate the data.

I have tried many ideas but none seem to work.

For instance why doesn't the following select the first cell in the
last column of the selection. It selects a cell outside the selection
entirely.

Selection(Cells(1, Selection.Columns.Count)).Select

In addition, isn't the selection the range itself?
Msgbox selection.address
gives the correct address of the original selection.

Thanks for any help.

Don

 

[Jim Cone]

Don,

Selection.Cells(1, Selection.Columns.Count).Select
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"don" <[email protected]>
wrote in message
I would like to select a column within a selection.

For instance if the original selection is A110
I would like to select D110 and then manipulate the data.
I have tried many ideas but none seem to work.
For instance why doesn't the following select the first cell in the
last column of the selection. It selects a cell outside the selection
entirely.

Selection(Cells(1, Selection.Columns.Count)).Select

In addition, isn't the selection the range itself?
Msgbox selection.address
gives the correct address of the original selection.
Thanks for any help.
Don

 

[Ken Johnson]

With Selection
..Range(Cells(1, .Columns.Count),
Cells(.Rows.Count, .Columns.Count)).Select
End With

Selects D110 when A110 is the original selection

Ken Johnson

 

[Dave Peterson]

I'm not sure what you're doing, but maybe these will give you some more
alternative:

ActiveSheet.Range("a1:d10").Select
Selection.Columns(1).Offset(0, 3).Select

==

ActiveSheet.Range("a1:d10").Select
Selection.Columns(4).Select

==

ActiveSheet.Range("a1:d10").Select
With Selection
.Columns(.Columns.Count).Select
End With