Copying An Array To A New Array Gives subscript out of range error

[Roonyroox]

Hi, Im trying to copy a value from an array to a new array, ie., Array1(2, 1) = Array2(1, 1)

But this gives a subscript out of range error, the code is pretty basic.

Link to the file

array.xlsm

drive.google.com

Sub x1()
 
     
    Dim Array1() As Variant
    Dim Array2() As Variant
    
    Array1 = Range("a1:a10").Value
    
    
    
    Array1(2, 1) = Array2(1, 1)



End Sub

 

[Roonyroox]

Rory, im trying to figure out how to use arrays, also this is code for a larger table.

 

[sintek]

As per post 12 and post 18...Why are you using array for one value...

 

[Roonyroox]

This is just test code to try & learn how to use arrays, i couldnt figure out a few things on arrays using google, so i decided to ask for some help here

 

[RoryA]

It should be:

Sub x1()
Dim Array1 As Variant
Dim Array2() As Variant


Array1 = Range("a1:c10").Value
ReDim Array2(1 To UBound(Array1), 1 to Ubound(array1, 2))

     Array2(1, 3) = Array1(1, 3)

Range("e1") = Array2(1, 3)

End Sub

 

[Roonyroox]

Awesome, thanks guys, saved me alot of time trying to figure out the basics of arrays. Much appreciated.

Thanks.

 

[Roonyroox]

Oh btw, why doesnt Dim Array1 have brackets, but Array2 has () brackets?

 

[RoryA]

You can use brackets if you like. I tend to just declare as Variant, rather than as an array.