VBA Arrays - how to reshape my data!?

Brass Contributor

Hello,

 

I hope/imagine this a simple question but I am struggling to find a solition:

 

I have an existing array (from earlier in the sub)

 

Item_Array

-- Item_Array(0)     "Item_1"

-- Item_Array(n)     "Item_n"

 

This array is used to filter a table, and the result is copied to a temp worksheet

 

filtered range

ItemOP_IDINT
Item_1100123
Item_1200132
Item_1300213
Item_1400456
Item_1500465
Item_1600546
Item_n100789
Item_n200798
Item_n300879
Item_n400912
Item_n500921
Item_n600129

 

 

My question, can someone please show me how to 'reshape' the range above so it fits the array below

 

ReDim Preserve DataArray(0 To n, 0 To 5, 0 To 1)

 

Data_Array

     Data_Array(0)                            "Item_1" 

             Data_Array(0,0)                

                       Data_Array(0,0,0)    "100"

                       Data_Array(0,0,1)    "123"

             Data_Array(0,1)

             Data_Array(0,2)

             Data_Array(0,3)

             Data_Array(0,4)

             Data_Array(0,5)

     Data_Array(n)                             "Item_n" 

             Data_Array(n,0)                  

                       Data_Array(n,0,0)     "100"

                       Data_Array(n,0,1)     "789"

             Data_Array(n,1)

             Data_Array(n,2)

             Data_Array(n,3)

             Data_Array(n,4)

             Data_Array(n,5)

 

Any help very much appreciated!

 

thanks

0 Replies