I am trying to generate an array on the fly

For x = 2 To flstRow
aCom(1, x - 2) = Range("A" & x).Value
aCom(2, x - 2) = Range("M" & x).Value
Next x

but when I run the code I keep getting a Subscript out of range error and it
highlights the x-2 part of my code. How can I loop through the row of a
table and populate a 2 dimensional array with the values?

QB

try ReDim before the loop:

Sub sistence()
x = 100
ReDim aCom(2, x - 2)
End Sub

--
Gary''s Student - gsnu200906


"QB" wrote:

> I am trying to generate an array on the fly
>
> For x = 2 To flstRow
> aCom(1, x - 2) = Range("A" & x).Value
> aCom(2, x - 2) = Range("M" & x).Value
> Next x
>
> but when I run the code I keep getting a Subscript out of range error and it
> highlights the x-2 part of my code. How can I loop through the row of a
> table and populate a 2 dimensional array with the values?
>
> QB

What Gary meant is just above the loop...ReDim aCom(2, flstRow - 2)


Sub Macro()
Dim aCom As Variant, x As Long, flstRow As Long

flstRow = something
ReDim aCom(2, flstRow - 2)
For x = 2 To flstRow
aCom(1, x - 2) = Range("A" & x).Value
aCom(2, x - 2) = Range("M" & x).Value
Next x
End Sub
If this post helps click Yes
---------------
Jacob Skaria


"Gary''s Student" wrote:

> try ReDim before the loop:
>
> Sub sistence()
> x = 100
> ReDim aCom(2, x - 2)
> End Sub
>
> --
> Gary''s Student - gsnu200906
>
>
> "QB" wrote:
>
> > I am trying to generate an array on the fly
> >
> > For x = 2 To flstRow
> > aCom(1, x - 2) = Range("A" & x).Value
> > aCom(2, x - 2) = Range("M" & x).Value
> > Next x
> >
> > but when I run the code I keep getting a Subscript out of range error and it
> > highlights the x-2 part of my code. How can I loop through the row of a
> > table and populate a 2 dimensional array with the values?
> >
> > QB

I would probably do the ReDim statement this way...

ReDim aCom(1 To 2, 0 To flstRow - 2)

I know the "0 To" part of the second element is not required, but I think it
adds clarity... the "1 To" part of the first element insures an unused 0
index is not created for the first element.

--
Rick (MVP - Excel)


"Jacob Skaria" <(E-Mail Removed)> wrote in message
news:61AE5768-C9D9-48FA-AA86-(E-Mail Removed)...
> What Gary meant is just above the loop...ReDim aCom(2, flstRow - 2)
>
>
> Sub Macro()
> Dim aCom As Variant, x As Long, flstRow As Long
>
> flstRow = something
> ReDim aCom(2, flstRow - 2)
> For x = 2 To flstRow
> aCom(1, x - 2) = Range("A" & x).Value
> aCom(2, x - 2) = Range("M" & x).Value
> Next x
> End Sub
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Gary''s Student" wrote:
>
>> try ReDim before the loop:
>>
>> Sub sistence()
>> x = 100
>> ReDim aCom(2, x - 2)
>> End Sub
>>
>> --
>> Gary''s Student - gsnu200906
>>
>>
>> "QB" wrote:
>>
>> > I am trying to generate an array on the fly
>> >
>> > For x = 2 To flstRow
>> > aCom(1, x - 2) = Range("A" & x).Value
>> > aCom(2, x - 2) = Range("M" & x).Value
>> > Next x
>> >
>> > but when I run the code I keep getting a Subscript out of range error
>> > and it
>> > highlights the x-2 part of my code. How can I loop through the row of
>> > a
>> > table and populate a 2 dimensional array with the values?
>> >
>> > QB