Dynamic Array - Data Erased

[Pjam]

The code i have below erases the data when it goes to the next i , how do i store this information to use a later time?

Option Base 1
Sub test()
Dim leasenumber  As Variant
Dim leaseitems   As Variant
Dim l            As Variant

For i = 1 To 10
leasenumber = Cells(i, 1)
leaseitems = Cells(i, 2)
l = Cells(i, 3)
ReDim myarray(leasenumber, l) As Variant

  myarray(leasenumber, l) = leaseitems
ReDim myarray(leasenumber, l) As Variant
'ReDim Preserve myarray(i, i + i)
Next
End Sub

 

[xenou]

You cannot Redim an array without erasing it. You can Redim Preserve an array, but I believe it is only the last dimension that can be resized.

This code looks awfully tortuous. You have a variable sized array, and are setting the second dimension based on a variable, which is coming from a cell, which is inside a loop. I can barely follow it ... but if the data is in the cells already, it may be simpler to use the worksheet as your data store instead of an array. In any case, you seem to know that there's 3 columns, so why use a variable second dimension?

ξ