Find and Search Macro

[guguzera]

Hi guys!

I need your help once again.

I would like to know if it's possible to create a Macro that is going to search a certain value (let's say it that this value is on cell E2). The value that i'm searching is in the middle of a text field (Imagine that I need to find the service order in the middle of a instruction text).

If the value is present in the worksheet of the instructions, I need to flag next to the searched value an OK, if not, I need to flag this value as "Not available".

Basically, what I need to do is a find (Crlt+f) and insert next to the number, an OK if that number is present in the other worksheet.

I totally lost in this. Could any of you please help me please?

Thank you so much in advance!!!!

 

[Yongle]

Here you go...
- amend sheet names

Goes in a standard module

Sub FindSomeText()
    Dim c As Range, what As String, addr As String
    what = CStr(Sheets("[I][COLOR=#800080]SheetWithValue[/COLOR][/I]").Range("E2").Value)
    With Sheets("[I][COLOR=#800080]SheetToSearch[/COLOR][/I]").UsedRange
        Set c = .Find(what, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            addr = c.Address
            Do
                c.Offset(, 1).Value = "ok"
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> addr
        End If
    End With
End Sub