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 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