If Is Equal To

[tomgrandy]

Currently I have a string as:

If InStr(cell.Value, "DRILL") <> 0 Then
cell.Offset(0, 7).Value = "POINT"
End If

It needs to read that if that cell value equals DRILL then write the value of POINT

Problem that I am encountering is that where the descriptions it is reading for values from has the word "Drilled" as in a tooth that was drilled (not a Point) that is shows another value.

So, how do I rewrite the above to ONLY pick up Drill and not Drilled?

Thanks in advance,

Tom

 

[tomgrandy]

Don't know about more efficient but maybe easier to write (Change myCell to suit)

    Dim MyArr, MyArr2, myCell As Range
    Dim MyFind As Integer, MyFind2 As Integer

    Set myCell = Range("A4")

    MyArr = Array("PENDANT", "GORGET")
    MyArr2 = Array("BANNERSTONE", "BANNERS", "LOAFSTONE", "BAR AMULET")

    For MyFind = LBound(MyArr) To UBound(MyArr)
        If InStr(myCell.Value, " " & MyArr(MyFind) & " ") > 0 Then myCell.Offset(0, 8).Value = "PENDANT AND GORGETS"
    Next
       
    For MyFind2 = LBound(MyArr2) To UBound(MyArr2)
        If InStr(myCell.Value, " " & MyArr2(MyFind2) & " ") > 0 Then myCell.Offset(0, 8).Value = "BANNERSTONES & ATL-ATL WEIGHTS"
    Next

Definitely easier! Will save this for future reference - needless to say I am just learning and people like you have been so helpful.

Thanks!

 

[smozgur]

Most excellent - thank you very much!!

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.