array help

[needhelp]

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

 

[Per Jessen]

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

 

[needhelp]

thanks Par .. knowing that helps

It works now.

Cheers
Julie