Loop and name
 

I assign values to range objects from an array. Is is possible to loop this?
My code is:

Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng2 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng3 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

I can easily loop the array but how do you name the rng1, rng2 etc. ? They
are defined as Range. Thanks!

Loop and name
 

Make rng an array.

Dim rng(1 to 3) as Range
Set rng(1) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng(2) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng(3) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

for i = 1 to 3
msgbox rng(i).Address(0,0,xlA1,True)
Next

--
regards,
Tom Ogilvy

"JP" wrote:

I assign values to range objects from an array. Is is possible to loop this?
My code is:

Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng2 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng3 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

I can easily loop the array but how do you name the rng1, rng2 etc. ? They
are defined as Range. Thanks!

Loop and name
 

Thanks! The thing is that I need the addresses to all rng:s. I use them like
this e.g.:

..SeriesCollection(1).XValues =
Sheets(varWorksheetInfoArray(0)).Range(rng1.Offset (i, 0).Address & ":" &
rng1.Offset(j, 0).Address)

is it possible to do the same when rng is defined as an array? Thank you
very much for your help!


"Tom Ogilvy" skrev:

Make rng an array.

Dim rng(1 to 3) as Range
Set rng(1) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng(2) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng(3) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

for i = 1 to 3
msgbox rng(i).Address(0,0,xlA1,True)
Next

--
regards,
Tom Ogilvy

"JP" wrote:

I assign values to range objects from an array. Is is possible to loop this?
My code is:

Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng2 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng3 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

I can easily loop the array but how do you name the rng1, rng2 etc. ? They
are defined as Range. Thanks!

Loop and name
 

..SeriesCollection(1).XValues =
Sheets(varWorksheetInfoArray(0)).Range(rng(1).Offs et(i, 0).Address & ":" &
rng(1).Offset(j, 0).Address)


--
Regards,
Tom Ogilvy

"JP" wrote in message
...
Thanks! The thing is that I need the addresses to all rng:s. I use them
like
this e.g.:

.SeriesCollection(1).XValues =
Sheets(varWorksheetInfoArray(0)).Range(rng1.Offset (i, 0).Address & ":" &
rng1.Offset(j, 0).Address)

is it possible to do the same when rng is defined as an array? Thank you
very much for your help!


"Tom Ogilvy" skrev:

Make rng an array.

Dim rng(1 to 3) as Range
Set rng(1) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng(2) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng(3) =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

for i = 1 to 3
msgbox rng(i).Address(0,0,xlA1,True)
Next

--
regards,
Tom Ogilvy

"JP" wrote:

I assign values to range objects from an array. Is is possible to loop
this?
My code is:

Set rng1 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(1),
LookIn:=xlValues)

Set rng2 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(2),
LookIn:=xlValues)

Set rng3 =
Worksheets(varWorksheetInfoArray(0)).Cells.Find(va rWorksheetInfoArray(3),
LookIn:=xlValues)

I can easily loop the array but how do you name the rng1, rng2 etc. ?
They
are defined as Range. Thanks!