excel arrays

[kenrock]

I have an array - RangeArray = Array("Range1", "Range2","Range3") and I
define, elsewhere, Range1 as Worksheets(1).Range("A15"), Range2 as
Worksheets(1).Range("J20:M35") etc...
I want to write the code such that myRange = RangeArray(m) where m is an
integer. Thus by choosing a value for m, I can define a particular
range. I've tried several ways but I am not having much luck. Can
anyone please help?
Regards, Ken Rock

 

[Bob Phillips]

Ken,

This should get you started

Dim Range1 As Range
Dim Range2 As Range
Dim Range3 As Range
Dim RangeArray
Dim m As Long

Set Range1 = Worksheets(1).Range("A15")
Set Range2 = Worksheets(1).Range("A1115")
Set Range3 = Worksheets(1).Range("A2125")
RangeArray = Array(Range1, Range2, Range3)
m = 1
MsgBox RangeArray(m).Address


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Dave Peterson]

How about:

Set myRange = range(RangeArray(m))

or if they're all on worksheets(1):

set myrange = worksheets(1).range(rangearray(m))

 

[J_J]

May I add a small point?.
Baring in mind that we will be referring to Range2 when we use m=1 (cause
for three ranges m=0, 1, and 2)..
J_J

 

[Bob Phillips]

Of course, it is well made )

Unfortunately, it is not absolute. Try it again, but add this line to the
start of the module and see what you get

Option Base 1

Bob

 

[Ken Rock]

I have an array - RangeArray = Array("Range1", "Range2","Range3") and I
define, elsewhere, Range1 as Worksheets(1).Range("A15"), Range2 as
Worksheets(1).Range("J20:M35") etc...
I want to write the code such that myRange = RangeArray(m) where m is an
integer. Thus by choosing a value for m, I can define a particular
range. I've tried several ways but I am not having much luck. Can
anyone please help?
Regards, Ken Rock

Gentlemen,
Many thanks for your prompt and knowledgeable responses to my query.
I now have the interesting task of trying out the solutions and at the
same time, improving my understanding of Excel spreadsheets.
Regards, Ken Rock

 

[J_J]

Yep!. Now I get Range1 as expected.
You are correct as before Bob.
Cheers
J_J