Carrying an array to another sheet

[sherry_1991]

So I want to transfer selective data from "Sheet1" to "Sheet2". What I did was I just put the cells in "sheet1" I wanted, into that array.
The array works fine (when I write it into cells) in "sheet1" from where its picking the data from but when I run that array in "sheet2" which is where I want to transfer the data to I get a "0" value.
My question is does an array loses its data when its not used in its parent sheet ("sheet1") ?

[Norie]

No an array is independent of any worksheet.

If you are losing data it might be for some other reason.

Can you post your code?

[sherry_1991]

For I = 1 To (totalcol + 3)
If Cells(4, I) = "Z-5" Then
If Cells(7, I) = "GU" Then
valarray(1) = Worksheets("Sheet1").Cells(12, I).Value
valarray(2) = Worksheets("Sheet1").Cells(16, I).Value
valarray(3) = Worksheets("Sheet1").Cells(17, I).Value
valarray(4) = Worksheets("Sheet1").Cells(22, I).Value
valarray(5) = Worksheets("Sheet1").Cells(26, I).Value
End If
End If
Next I

For k = 1 To 11
If Worksheets("cop").Cells(20, k) = "2013" Then
Worksheets("cop").Cells(21, k) = valarray(1)
End If
Next k

[Norie]

Why are you putting only the first item from the array into cells on 'cop'?

If it is only one value you don't need an array.

[sherry_1991]

Sorry I didn't update my code. I need to put 5 values in "cop"

For k = 1 To 11
If Worksheets("cop").Cells(20, k) = "2013" Then
For m = 2 To 5
Worksheets("cop").Cells(21, k) = valarray(m)
Next m
End If
Next k

[sherry_1991]

Thanks for the help! I wasnt selecting by data source. just needed to add Worksheets("sheet1").select at the top

[Norie]

No need to select.

Please Login or Register  to view this content.

[sherry_1991]

oh yaa, how could I forget haha! That makes sense. Thanks again