compare 2 cels that contain certain text

[gyagos]

All,
I am trying to figure out how to go about this. I need to add a column and if Column "E" contains the word Printer and column "D" contains "OWB", i need to display "OWB PRINTER". If it doesnt match than i can just put "OTHER
Some examples below.

Column "D" Column "E"
[TABLE="width: 763"]
<tbody>[TR]
[TD="width: 294"]OWB Workstations Crown[/TD]
[TD="width: 469"]Konica Minolta Printer/Fax/Scanner[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 763"]
<tbody>[TR]
[TD="width: 294"]OWB Workstations West Covina[/TD]
[TD="width: 469"]HP JetDirect Printer[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 763"]
<tbody>[TR]
[TD="width: 294"]OWB Workstations Austin[/TD]
[TD="width: 469"]Ricoh Aficio/IPSiO Network Printer[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 763"]
<tbody>[TR]
[TD="width: 294"]OWB Bank Branches[/TD]
[TD="width: 469"]HP JetDirect Printer[/TD]
[/TR]
</tbody>[/TABLE]


Thanks in advance

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub OWBPrinters()
   Range("F:F").Insert
   With Range("F2", Range("E" & Rows.Count).End(xlUp).Offset(, 1))
      .Value = Evaluate(Replace(Replace("IF(ISNUMBER(SEARCH(""OWB"",@d))*ISNUMBER(SEARCH(""Printer"",@e)),""OWB Printer"",""Other"")", "@d", .Offset(, -2).Address), "@e", .Offset(, -1).Address))
   End With
End Sub

 

[gyagos]

Thank you for the quick response. Works like a charm

 

[Fluff]

Glad to help & thanks for the feedback