i'm trying to populate a 2 dimensional array with a value from a cell
(in the first column of the array) and a cell address of a related
cell (in the second column).

I don't know how many values i will have in the array, but i only need
these two pieces of information.

For u = 0 To numrows - t 'cycle through rows in table
If StrConv(Trim(ActiveCell.Offset(u, 0)) & "_" & Trim
(ActiveCell.Offset(u, 1)), vbUpperCase) = ulsheet Then
If StrConv(ActiveCell.Offset(u, 5), vbUpperCase) = "YES" Then
numpks = numpks + 1
ReDim Preserve pkfields(1 To numpks, 1 To 2)
pkfields(numpks, 1) = ActiveCell.Offset(u, 2).Value 'populate
array with value
pkfields(numpks, 2) = ActiveCell.Offset(u, 8).Address 'populate
array with address
End If
End If
Next

I'm getting "subscript out of range" error after the first lot of
values have been put into the array.

Not sure what i'm doing wrong so would appreciate any input.

Cheers
Julie

Hi Julie

You can only redim the last dimension of your array, so you have to
swithch row to column like this:

ReDim Preserve pkfields(1 To 2, 1 To numpks)
pkfields(1, numpks) = ActiveCell.Offset(u, 2).Value 'populate
array with value
pkfields(2, numpks) = ActiveCell.Offset(u, 8).Address 'populate
array with address

Hopes this helps.
....
Per

On 10 Aug., 03:36, needhelp <needh...@doubt.com> wrote:
> i'm trying to populate a 2 dimensional array with a value from a cell
> (in the first column of the array) and a cell address of a related
> cell (in the second column).
>
> I don't know how many values i will have in the array, but i only need
> these two pieces of information.
>
> For u = 0 To numrows - t 'cycle through rows in table
> *If StrConv(Trim(ActiveCell.Offset(u, 0)) & "_" & Trim
> (ActiveCell.Offset(u, 1)), vbUpperCase) = ulsheet Then
> * *If StrConv(ActiveCell.Offset(u, 5), vbUpperCase) = "YES" Then
> * * *numpks = numpks + 1
> ReDim Preserve pkfields(1 To numpks, 1 To 2)
> * * *pkfields(numpks, 1) = ActiveCell.Offset(u, 2).Value 'populate
> array with value
> * * *pkfields(numpks, 2) = ActiveCell.Offset(u, 8).Address 'populate
> array with address
> * *End If
> * End If
> Next
>
> I'm getting "subscript out of range" error after the first lot of
> values have been put into the array.
>
> Not sure what i'm doing wrong so would appreciate any input.
>
> Cheers
> Julie

thanks Par .. knowing that helps

It works now.

Cheers
Julie