I am generating random numbers through the following code:

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
NumDays, Distribution, , Param1, Param2

In this case NumDays number of random numbers are generated and pasted to
cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart is
cell o25, then excel is writing the 15 random numbers generated to cell o25
and downwards.

I want to create an array and transfer the random numbers there.
i have used following code:
Dim ArrayRnd () as Double
Re Dim ArrayRnd as (NumDays,1)

Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
Distribution, , Param1, Param2

I want to give the array the random number generated. The code above is not
working. request help
regards
pradip

I would think that the Random function is designed to expect a range
argument and it might not know what to do if it gets an array instead. Can
you not populate the array from the sheet dump?

--
Jim
"Pradip Jain" wrote in message
...
|I am generating random numbers through the following code:
|
| Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
| NumDays, Distribution, , Param1, Param2
|
| In this case NumDays number of random numbers are generated and pasted to
| cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart
is
| cell o25, then excel is writing the 15 random numbers generated to cell
o25
| and downwards.
|
| I want to create an array and transfer the random numbers there.
| i have used following code:
| Dim ArrayRnd () as Double
| Re Dim ArrayRnd as (NumDays,1)
|
| Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
| Distribution, , Param1, Param2
|
| I want to give the array the random number generated. The code above is
not
| working. request help
| regards
| pradip

It looks like you have inserted a space into your "ReDim" command, making it
"Re Dim". Try removing the space and see if it works then. Also, the Random
function will need some way to know the destination is now an array, instead
of a range. If there is no option to do this, you will have to write code to
copy the values from the range into your array.

"Pradip Jain" wrote:

I am generating random numbers through the following code:

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
NumDays, Distribution, , Param1, Param2

In this case NumDays number of random numbers are generated and pasted to
cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart is
cell o25, then excel is writing the 15 random numbers generated to cell o25
and downwards.

I want to create an array and transfer the random numbers there.
i have used following code:
Dim ArrayRnd () as Double
Re Dim ArrayRnd as (NumDays,1)

Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
Distribution, , Param1, Param2

I want to give the array the random number generated. The code above is not
working. request help
regards
pradip

If the random numbers are pasted to the excel sheet and then the array is
populated from the sheet, the speed is reduced considerably. i need to do a
large number of simulations to get a result, hence need to do all
calculations in memory space, that is array. writing to excel and reading
from it would slow the process considerably.
Regards
Pradip

"Jim Rech" wrote:

I would think that the Random function is designed to expect a range
argument and it might not know what to do if it gets an array instead. Can
you not populate the array from the sheet dump?

--
Jim
"Pradip Jain" wrote in message
...
|I am generating random numbers through the following code:
|
| Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
| NumDays, Distribution, , Param1, Param2
|
| In this case NumDays number of random numbers are generated and pasted to
| cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart
is
| cell o25, then excel is writing the 15 random numbers generated to cell
o25
| and downwards.
|
| I want to create an array and transfer the random numbers there.
| i have used following code:
| Dim ArrayRnd () as Double
| Re Dim ArrayRnd as (NumDays,1)
|
| Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
| Distribution, , Param1, Param2
|
| I want to give the array the random number generated. The code above is
not
| working. request help
| regards
| pradip

Apologies, it is ReDim only. The space was a typo

"LabElf" wrote:

It looks like you have inserted a space into your "ReDim" command, making it
"Re Dim". Try removing the space and see if it works then. Also, the Random
function will need some way to know the destination is now an array, instead
of a range. If there is no option to do this, you will have to write code to
copy the values from the range into your array.

"Pradip Jain" wrote:

I am generating random numbers through the following code:

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range(RanRowStart), 1,
NumDays, Distribution, , Param1, Param2

In this case NumDays number of random numbers are generated and pasted to
cell starting from RanRowStart. Suppose if NumDays is 15 and RanRowStart is
cell o25, then excel is writing the 15 random numbers generated to cell o25
and downwards.

I want to create an array and transfer the random numbers there.
i have used following code:
Dim ArrayRnd () as Double
Re Dim ArrayRnd as (NumDays,1)

Application.Run "ATPVBAEN.XLA!Random", ArrRand(1:NumDays), 1, n,
Distribution, , Param1, Param2

I want to give the array the random number generated. The code above is not
working. request help
regards
pradip