Prev: Subscript out of range error?
Next: How to put excel into batch mode
From: nxqviet on 6 Oct 2006 18:30
Hi all,

I think I'm making this harder than it really is, but I can't see any
other way to do it. I have a range, where I want to select a number of
rows within it. This range is very large, and I just need to select an
"x" number of rows. here is the code i have.

Dim x As Integer
x = ((intPackNCount * 2) + intPackDCount)

Dim Ra1 As Range
Set Ra1 = Range("Select")

Application.Goto Ra1
Range("(Ra1.Rows(1)):(Ra1.Rows(x))").Select

Is there an easier way to do this? Please help.

Thanks

V

From: Tom Ogilvy on 6 Oct 2006 19:10
Dim x As Integer
x = ((intPackNCount * 2) + intPackDCount)

Dim Ra1 As Range
Set Ra1 = Range("Select")
Ra1.Resize(x).Select

just to illustrate from the immediate window:

?Range("A1:Z26").Resize(5).Address
$A$1:$Z$5



--
Regards,
Tom Ogilvy

"nxqviet" <nxqviet(a)gmail.com> wrote in message
news:1160173837.836755.127470(a)i42g2000cwa.googlegroups.com...
> Hi all,
>
> I think I'm making this harder than it really is, but I can't see any
> other way to do it. I have a range, where I want to select a number of
> rows within it. This range is very large, and I just need to select an
> "x" number of rows. here is the code i have.
>
> Dim x As Integer
> x = ((intPackNCount * 2) + intPackDCount)
>
> Dim Ra1 As Range
> Set Ra1 = Range("Select")
>
> Application.Goto Ra1
> Range("(Ra1.Rows(1)):(Ra1.Rows(x))").Select
>
> Is there an easier way to do this? Please help.
>
> Thanks
>
> V
>


 | 
Pages: 1
Prev: Subscript out of range error?
Next: How to put excel into batch mode