S
sia.bhavaraju
Hi i have an error at this point in my module saying application
defined or object error defined error.
error 1004
'
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 neighbouring squares 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 find 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
-------------------------------------------------------
The offset(0,2) is row
offset(0,3) is column
offset(0,5) is status
offset(0,6) is target item in the spread sheet
its urgent please let me know the possible solutions for the error
Regards,
Ram
defined or object error defined error.
error 1004
'
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 neighbouring squares 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 find 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
-------------------------------------------------------
The offset(0,2) is row
offset(0,3) is column
offset(0,5) is status
offset(0,6) is target item in the spread sheet
its urgent please let me know the possible solutions for the error
Regards,
Ram