Problem with Alan Beban's ResizeArray

  • Thread starter Thread starter RB Smissaert
  • Start date Start date
R

RB Smissaert

Trying to use Alan Beban's Sub ResizeArray, but I can't get it to work.
There are no errors, but the final array after resizing has all empty
elements.
It goes wrong at the final bit where the altered array is assigned to the
supplied array:

MsgBox arr1(1, 2)

'goes wrong here
MyArray = arr1

MsgBox MyArray(1, 2)

MsgBox SuppliedArray(1, 2)

The first 2 messageboxes give the right value, but the third gives a blank.
The array supplied to the sub is a 2-dimensional 1-based publicly declared
variant array.
I must be making a simple mistake, but I can't see it.
Thanks for any advice.


RBS
 
Hi RB,

I'm not sure what your code looks like, but with 1 through 12 in A1:C4 I
ran the following

Option Base 1
Public SuppliedArray() As Variant
_________________________________
Sub TestArrayFill()
ReDim SuppliedArray(1 To 4, 1 To 3)
Set rng = Sheets(4).Range("A1:C4")
For i = 1 To 4
For j = 1 To 3
SuppliedArray(i, j) = rng(i, j)
Next
Next
ResizeArray SuppliedArray, 5, 3
For i = 1 To 5: For j = 1 To 3
Debug.Print SuppliedArray(i, j)'<-returned 1 thru 12 plus 3 blanks
Next
Next
Debug.Print UBound(SuppliedArray)'<-returned 5
End Sub

Where are we not running the same thing?

Alan Beban
 
Alan,

Thanks.
I had my SuppliedArray declared as a fixed array:
Public SuppliedArray(1 To 200, 1 To 35) As Variant
That was the difference.
After changing to:
Public SuppliedArray() As Variant
and doing
ReDim SuppliedArray(1 To 200, 1 To 35) As Variant
on initializing the form it works.

I knew it would be something simple.

Bart
 
Thanks for the feedback.

Alan Beban

RB said:
Alan,

Thanks.
I had my SuppliedArray declared as a fixed array:
Public SuppliedArray(1 To 200, 1 To 35) As Variant
That was the difference.
After changing to:
Public SuppliedArray() As Variant
and doing
ReDim SuppliedArray(1 To 200, 1 To 35) As Variant
on initializing the form it works.

I knew it would be something simple.

Bart
Click to expand...
 
Back
Top