Iam working on Agent Based Modeling system using Microsoft Excel.I'm
getting an error saying 424 object required at this part of the code

[Frustration].Offset(1,1)=0

this is the full code
Sub Initialize()

' Declare the local variables.
Dim shopper As Range

' Set the ranom seed.
Rnd (-1)
Random_Seed = 10

Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear

' Initilaize all of the shoppers.
For Each shopper In [Shoppers]

' Complete the basic shopper initilization.
Call InitializeShopper(shopper)

' Reset the items found counter.
shopper.Offset(0, 13) = 0

' Resett the trip counter.
shopper.Offset(0, 14) = 1

' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]

Next shopper

End Sub

Please let me know the solution as soon as possible
Thanks in advance

The only reason you would use square brackets is if the items in the square
brackets are defined names in Excel (Insert=Name=Define)

if Frustration is a rng reference

set Frustration = Range("A1")

then

Frustration.Offset(1,1) = 0

would work.

Demo'd from the immediate window:

Random_Seed = 10
? [Random_Seed]
Error 2029
? Random_Seed
10


--
Regards,
Tom Ogilvy


" wrote:

Iam working on Agent Based Modeling system using Microsoft Excel.I'm
getting an error saying 424 object required at this part of the code

[Frustration].Offset(1,1)=0

this is the full code
Sub Initialize()

' Declare the local variables.
Dim shopper As Range

' Set the ranom seed.
Rnd (-1)
Random_Seed = 10

Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear

' Initilaize all of the shoppers.
For Each shopper In [Shoppers]

' Complete the basic shopper initilization.
Call InitializeShopper(shopper)

' Reset the items found counter.
shopper.Offset(0, 13) = 0

' Resett the trip counter.
shopper.Offset(0, 14) = 1

' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]

Next shopper

End Sub

Please let me know the solution as soon as possible
Thanks in advance

On Aug 28, 10:32 am, Tom Ogilvy
wrote:
The only reason you would use square brackets is if the items in the square
brackets are defined names in Excel (Insert=Name=Define)

if Frustration is a rng reference

set Frustration = Range("A1")

then

Frustration.Offset(1,1) = 0

would work.

Demo'd from the immediate window:

Random_Seed = 10
? [Random_Seed]
Error 2029
? Random_Seed
10

--
Regards,
Tom Ogilvy

" wrote:
Iam working on Agent Based Modeling system using Microsoft Excel.I'm
getting an error saying 424 object required at this part of the code

[Frustration].Offset(1,1)=0

this is the full code
Sub Initialize()

' Declare the local variables.
Dim shopper As Range

' Set the ranom seed.
Rnd (-1)
Random_Seed = 10

Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear

' Initilaize all of the shoppers.
For Each shopper In [Shoppers]

' Complete the basic shopper initilization.
Call InitializeShopper(shopper)

' Reset the items found counter.
shopper.Offset(0, 13) = 0

' Resett the trip counter.
shopper.Offset(0, 14) = 1

' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]

Next shopper

End Sub

Please let me know the solution as soon as possible
Thanks in advance

Thanks a lot for the suggestion

Random_Seed i had kept it as 10 as before it gave 2029 error.Can i
keep it like that

If you don't use brackets to refer to it, then it won't give the 2029 error.

--
Regards,
Tom Ogilvy


" wrote:

On Aug 28, 10:32 am, Tom Ogilvy
wrote:
The only reason you would use square brackets is if the items in the square
brackets are defined names in Excel (Insert=Name=Define)

if Frustration is a rng reference

set Frustration = Range("A1")

then

Frustration.Offset(1,1) = 0

would work.

Demo'd from the immediate window:

Random_Seed = 10
? [Random_Seed]
Error 2029
? Random_Seed
10

--
Regards,
Tom Ogilvy

" wrote:
Iam working on Agent Based Modeling system using Microsoft Excel.I'm
getting an error saying 424 object required at this part of the code

[Frustration].Offset(1,1)=0

this is the full code
Sub Initialize()

' Declare the local variables.
Dim shopper As Range

' Set the ranom seed.
Rnd (-1)
Random_Seed = 10

Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear

' Initilaize all of the shoppers.
For Each shopper In [Shoppers]

' Complete the basic shopper initilization.
Call InitializeShopper(shopper)

' Reset the items found counter.
shopper.Offset(0, 13) = 0

' Resett the trip counter.
shopper.Offset(0, 14) = 1

' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]

Next shopper

End Sub

Please let me know the solution as soon as possible
Thanks in advance

Thanks a lot for the suggestion

Random_Seed i had kept it as 10 as before it gave 2029 error.Can i
keep it like that