Search 'String' and tag accordingly using 'String table'

Search 'String' and tag accordingly using 'String table'
Hi everyone. First of all it’s a great forum and has been very helpful for my excel work. I am not that savvy with excel and got the following situation/s and any help/guidance would be highly appreciated.

Back ground:
I have to go through some cost items every month and sort them accordingly. I get the data dump (raw data tab on the attachment) and I need to tag them based on the description. I go through them by hand (about 400 line items) every month and very tedious and time consuming.

Problem:
Now I am looking for a way to automate them (as much as possible) by using a “string search’ table. My idea is that it will search the ‘description’ column and based on the ‘s-tabs’ table and once a string is found then it will retuen the data from first row of that column

Try this macro

Sub Test()
Sheets("Raw Data").Activate
For N = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    For Each Cell In Sheets("S-Table").Cells(2, 2).CurrentRegion
        If InStr(LCase(Cells(N, 4)), LCase(Cell.Value)) > 0 And Cell.Value <> "" And Cell.Row <> 2 Then
            Cells(N, 6) = Sheets("S-Table").Cells(2, Cell.Column)
            Exit For
        End If
    Next Cell
Next N
End Sub

Open up the VBA editor by hitting ALT F11

Insert a new module by hitting Insert - Module

Paste the macro into the empty sheet

Hit ALT F11 to get back to the worksheet.

Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007.

Hi martin,

It works like a charm in the 2003 .xls but wheni copy it to .xlxs version them it give me 'run time error 9' any idea why?

Thanks

If you hit debug, which line is highlighted in yellow?

I took a screen shot of new file where the macro doesnt work and the highlighted area of the code.

In 2007, the workbook needs to be saved in .xlsm format.

it works , there was a space after the tabs title which is why the macro wasnt working. Thanks mrice