application defined or object defined error

[sia.bhavaraju]

Hi i have an error at this point in my module saying application
defined or object error defined error.
error 1004

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

this is the full program
---------------------------------------------------------------------------------------
' This is the nearby area scanning routine.
Sub LookAround(shopper As Range)

' Check the eight neighbouing squaree to see if our item is
nearby.
For Row = -1 To 1

' For simplicity we will check our own square too,
' but do not expect to ind the item we seek.
For Column = -1 To 1

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

' Note that we have found the item of interest.
shopper.Offset(0, 5) = "Found"
Exit For
End If

Next Column

Next Row

End Sub

 

[JE McGimpsey]

You haven't given enough information:

How is Environment defined? What are the values in shopper.Offset(0, 2),
shopper.Offset(0, 3) and shopper.Offset(0, 6)?

 

[sia.bhavaraju]

You haven't given enough information:

How is Environment defined? What are the values in shopper.Offset(0, 2),
shopper.Offset(0, 3) and shopper.Offset(0, 6)?

Hi i have an error at this point in my module saying application
defined or object error defined error.
error 1004

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

this is the full program

' Check the eight neighbouing squaree to see if our item is
nearby.
For Row = -1 To 1

' For simplicity we will check our own square too,
' but do not expect to ind the item we seek.
For Column = -1 To 1

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

' Note that we have found the item of interest.
shopper.Offset(0, 5) = "Found"
Exit For
End If

Next Column

Next Row

End Sub

Hi,
These are the offsets values
Agent Name Active Row Column Symbol Status Target Item Target Row
Target Column Remembered Item Remembered Row Remembered Column
Frustration Items Found Trips
(Offset 0) (Offset 1) (Offset 2) (Offset 3) (Offset 4) (Offset 5)
(Offset 6) (Offset 7) (Offset 8) (Offset 9) (Offset 10) (Offset 11)
(Offset 12) (Offset 13) (Offset 14)

Regards,
Ram

 

[sia.bhavaraju]

You haven't given enough information:

How is Environment defined? What are the values in shopper.Offset(0, 2),
shopper.Offset(0, 3) and shopper.Offset(0, 6)?

Hi i have an error at this point in my module saying application
defined or object error defined error.
error 1004

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

this is the full program

' Check the eight neighbouing squaree to see if our item is
nearby.
For Row = -1 To 1

' For simplicity we will check our own square too,
' but do not expect to ind the item we seek.
For Column = -1 To 1

' Check the next nearby spot for our item.
If ([Environment].Offset(shopper.Offset(0, 2) + Row, _
shopper.Offset(0, 3) + Column) = _
shopper.Offset(0, 6)) Then

' Note that we have found the item of interest.
shopper.Offset(0, 5) = "Found"
Exit For
End If

Next Column

Next Row

End Sub

Hi,
As i had sent that offset values more to say offset 2 is row, offset 3
is column and offset 6 is target item and offset 5 is status.

Regards,
Ram

 

[JE McGimpsey]

You still haven't said what the *values* are in those cells, nor how
'Environment' is defined...