From: puiuluipui on
Hi, i have this code that will select from active sheet 20 cells below, on
the column.
can this code be made to select 20 cells to the right, on row?

Range(ActiveCell, Cells(ActiveCell.Row + 20, ActiveCell.Column)).Select

Can this be done?
Thanks!
From: Mike H on
Hi,

Your line of code can be simplified to

ActiveCell.Resize(21).Select

and for a column

ActiveCell.Resize(, 21).Select

My usual caveat is that no matter what you trying to do it's extremely
unlikely you need to select to do it

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"puiuluipui" wrote:

> Hi, i have this code that will select from active sheet 20 cells below, on
> the column.
> can this code be made to select 20 cells to the right, on row?
>
> Range(ActiveCell, Cells(ActiveCell.Row + 20, ActiveCell.Column)).Select
>
> Can this be done?
> Thanks!
From: Mike H on
and you can combine both

ActiveCell.Resize(21, 21).Select
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Mike H" wrote:

> Hi,
>
> Your line of code can be simplified to
>
> ActiveCell.Resize(21).Select
>
> and for a column
>
> ActiveCell.Resize(, 21).Select
>
> My usual caveat is that no matter what you trying to do it's extremely
> unlikely you need to select to do it
>
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "puiuluipui" wrote:
>
> > Hi, i have this code that will select from active sheet 20 cells below, on
> > the column.
> > can this code be made to select 20 cells to the right, on row?
> >
> > Range(ActiveCell, Cells(ActiveCell.Row + 20, ActiveCell.Column)).Select
> >
> > Can this be done?
> > Thanks!
From: puiuluipui on
It's working great!!
Thanks!

"Mike H" wrote:

> Hi,
>
> Your line of code can be simplified to
>
> ActiveCell.Resize(21).Select
>
> and for a column
>
> ActiveCell.Resize(, 21).Select
>
> My usual caveat is that no matter what you trying to do it's extremely
> unlikely you need to select to do it
>
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "puiuluipui" wrote:
>
> > Hi, i have this code that will select from active sheet 20 cells below, on
> > the column.
> > can this code be made to select 20 cells to the right, on row?
> >
> > Range(ActiveCell, Cells(ActiveCell.Row + 20, ActiveCell.Column)).Select
> >
> > Can this be done?
> > Thanks!