Copy an array *SOLVED*

[kurtsimons]

is there is easier way to copy array values?

dim Arry() as string

redim arry(3)

arry(1)="Jim"
arry(2)="Bob"
arry(3)="Harry"

Dim NewArry() as string

redim newarry(ubound(arry))

for a= 0 to ubound(newarry)
newarry(a)=arry(a)
next a

[robbedaya]

first of all if you create an array like you do

dim Arry() as string
redim arry(3)

you create an array of 3 strings: arry(0), arry(1), arry(2) and arry(3)
if you want to create an arry wit only indexes 1 to 3
use this redim arry(1 to 3) or do it your way but add on on top of your module:

option base 1

to copy an array just try this:

NewArry = Arry

it works like a charm:

So:

Dim Arry() As String
 
ReDim Arry(3)
 
Arry(1) = "Jim"
Arry(2) = "Bob"
Arry(3) = "Harry"
 
Dim NewArry() As String
ReDim NewArry(UBound(Arry))
 
NewArry = Arry

[kurtsimons]

should I delete this before anyone sees it?

thanks

- Kurt

[JordanChris]

Originally posted by kurtsimons
should I delete this before anyone sees it?

No. Leave it here, but edit your first post and change the title to include the word "*Solved*"

[kurtsimons]

I figured out why it didn't work when I first tried this... I didn't redim the array.