import data in columns?

[redback]

The code below will display 10 random numbers in 1 excel row(A1 to J1). How would I make the random numbers display down 1 column (A1 to A10) instead of across a row. Thanks for your help, Jeff. If you replace J1 with A10 it will only display the first random number in each cell.
---------------------------------------
Private Sub Command1_Click()
Dim o As Object
Dim i As Integer
Dim iNumbers(1 To 10) As Integer
For i = LBound(iNumbers) To UBound(iNumbers)
iNumbers(i) = Int(Rnd * 100) + 1
Next i
Set o = CreateObject("excel.application")
o.Visible = True
o.Workbooks.Add
o.sheets("sheet1").Range("A1:J1").Value = iNumbers
End Sub

[ This Message was edited by: redback on 2002-05-22 10:31 ]

[dk]

On 2002-05-22 10:29, redback wrote:
The code below will display 10 random numbers in 1 excel row(A1 to J1). How would I make the random numbers display down 1 column (A1 to A10) instead of across a row. Thanks for your help, Jeff. If you replace J1 with A10 it will only display the first random number in each cell.
---------------------------------------
Private Sub Command1_Click()
Dim o As Object
Dim i As Integer
Dim iNumbers(1 To 10) As Integer
For i = LBound(iNumbers) To UBound(iNumbers)
iNumbers(i) = Int(Rnd * 100) + 1
Next i
Set o = CreateObject("excel.application")
o.Visible = True
o.Workbooks.Add
o.sheets("sheet1").Range("A1:J1").Value = iNumbers
End Sub

[ This Message was edited by: redback on 2002-05-22 10:31 ]

Hi,

You need to change A1:J1 to A1:A10 and also specify that the array will be 10x1 i.e.


Sub Command1_Click()
Dim o As Object
Dim i As Integer
Dim iNumbers(1 To 10, 1 To 1) As Integer
For i = LBound(iNumbers) To UBound(iNumbers)
iNumbers(i, 1) = Int(Rnd * 100) + 1
Next i
Set o = CreateObject("excel.application")
o.Visible = True
o.Workbooks.Add
o.Sheets("sheet1").Range("A1:A10").Value = iNumbers
End Sub


Let me know if this works.

Dan

[redback]

Thanks Dan!

I have been working on this problem all day. I owe ya a beer.

Jeff

[dk]

Thanks Dan!

I have been working on this problem all day. I owe ya a beer.

Jeff

No problem. Be careful what you say though - I've been known to travel half way round the world for a free beer