Writing out an array

[Orongo]

Hi,

I am reading in the data into an array and want to write it out, but for some reason it don't write out anything. Just to write out one element works, so the array is not empy.

----------------------

Sub Write_data()
Dim GroupNo, NoRows, ii As Integer
Dim YStart() As Date

NoRows = 1
While Len(Range("Grupp").Offset(NoRows, 0).Value) > 0
NoRows = NoRows + 1
Wend

ReDim YStart(NoRows - 1, 1) As Date

ii = 1
For ii = 1 To NoRows - 1
YStart(ii, 1) = Range("PBD_start").Offset(ii, 1).Value
Next

Range("J20").Value = YStart(12, 1)

End Sub
-----------------------------

Please heeeeellllpppppp

 

[Andrew Poulsom]

You are only writing out the 12th item in the array. Why can't you use Copy/Paste?

 

[Orongo]

I am sorry, the correct version is

----------------------

Sub Write_data()
Dim GroupNo, NoRows, ii As Integer
Dim YStart() As Date

NoRows = 1
While Len(Range("Grupp").Offset(NoRows, 0).Value) > 0
NoRows = NoRows + 1
Wend

ReDim YStart(NoRows - 1, 1) As Date

ii = 1
For ii = 1 To NoRows - 1
YStart(ii, 1) = Range("PBD_start").Offset(ii, 1).Value
Next

Range("J20").Value = YStart

End Sub
-----------------------------

I want the array to start at cell J20 and write out the whole array

 

[Andrew Poulsom]

To what do the Ranges Grupp and PBD_start refer?

 

[Rick Rothstein]

I am sorry, the correct version is

----------------------

Sub Write_data()
Dim GroupNo, NoRows, ii As Integer
Dim YStart() As Date

NoRows = 1
While Len(Range("Grupp").Offset(NoRows, 0).Value) > 0
NoRows = NoRows + 1
Wend

ReDim YStart(NoRows - 1, 1) As Date

ii = 1
For ii = 1 To NoRows - 1
YStart(ii, 1) = Range("PBD_start").Offset(ii, 1).Value
Next

Range("J20").Value = YStart

End Sub
-----------------------------

I want the array to start at cell J20 and write out the whole array

Try resizing the receiving range in the highlighted code line to the size of the array...

Range("J20").Resize(NoRows - 1, 1) = YStart

 

[Orongo]

Try resizing the receiving range in the highlighted code line to the size of the array...

Range("J20").Resize(NoRows - 1, 1) = YStart

It didn't work

 

[Andrew Poulsom]

You haven't answered my question in post #4.

 

[Orongo]

To what do the Ranges Grupp and PBD_start refer?

They are cells in the Excel sheet that I have named.

 

[Andrew Poulsom]

Yes, but what do the names refer to? Choose Insert|Name|Define and post what's in the Refers to box for both names.