Using an array to select data

[Guest]

Hi All,

Im having trouble using an array to select data and transfer to another sheet.

I've created the array:
Sheets("Tmp Resource Sheet").Select
Range("A1").Select
myArray = Range(Selection, Selection.End(xlDown))

and now i need to transfer what is in the array to another sheet. The other
sheet has a named cell(Bdg_LadDays), where the data has to be transferred 2
cells below it.

For m = 0 To n ' n being the number of rows in the array
Range(Bdg_LabDays).Cells(m + 2, 0).Value = Range(myarray(m)).Value
Next m

The code to transfer the arrays contents doesn't work.
Can anyone please suggest a way for me to get this working.

Thanks.
Tony.

 

[Erik BZ]

Hi, try this code:

Sub TEST()

myarray = Range(Sheets("Tmp Resource Sheet").Range("A1"), Sheets("Tmp
Resource Sheet").Range("A1").End(xlDown))

For m = 1 To UBound(myarray)
Sheets("The other sheet").Range("Bdg_LabDays").Cells(m + 1, 1).Value =
myarray(m, 1)
Next m

End Sub

Best reg.,
Erik B

 

[Guest]

You my friend, are a ledgend.
Thank you so much. I've been trying for hours to figure this out.

Thanks again.
Tony.

 

[Alan Beban]

Hi All,

Im having trouble using an array to select data and transfer to another sheet.

I've created the array:
Sheets("Tmp Resource Sheet").Select
Range("A1").Select
myArray = Range(Selection, Selection.End(xlDown))

and now i need to transfer what is in the array to another sheet. The other
sheet has a named cell(Bdg_LadDays), where the data has to be transferred 2
cells below it.

For m = 0 To n ' n being the number of rows in the array
Range(Bdg_LabDays).Cells(m + 2, 0).Value = Range(myarray(m)).Value
Next m

The code to transfer the arrays contents doesn't work.
Can anyone please suggest a way for me to get this working.

Thanks.
Tony.

Sheets("othersheet").Range("Bdg_LabDays")(3).Resize(UBound(myArray)).Value=myArray

Alan Beban