Find Specific Word (s) Macro

[Russ At Index]

Hi All,

Have 35k + row ss which has in col E the description of the
product.

Is it at all possible to have a macro identify specific words within
the description column (eg the word "Xmas") & place an "x" in column L to as to
identify the row ???

TIA

Russ

 

[Von Pookie]

Untested but may give you an idea:

Dim c As Range, firstaddress As String

With Columns(5) 'search column E(5)
    Set c = .Find("Xmas", LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            Cells(c.Row, "L") = "X" 'put X in column L of found row
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With

 

[Russ At Index]

Hi Kirsty ,

Thanks for the prompt response , i will give your code a try
first thing in the morning .... just one qestion , after posting
i noticed i would want to identify several "words" , to report
in col L.


Would i amend your code:
Find("Xmas",

to

Find("Xmas","Other","Another", "etc","etc",

TIA

Russ

 

[Von Pookie]

No, that would not work. A couple of things that could be done:

- an inputbox for the user to specify multiple words to search for, separated by commas

OR

- List the words to be searched down a column on the page.

Do you have a preference?