Sub ProcessWords()
Dim v as Variant, v1 as Variant
Dim rng as Range, cell as Range
Dim i as Long, col as long
v = Array("Italian","BasketBall")
v1 = Array("Italy","BasketBall)
set rng = Range(Cells(1,3),Cells(rows.count,3).End(xlup))
for each cell in rng
col = 4
for i = lbound(v) to ubound(v)
if Instr(1,cell.Value,v(i).vbTextCompare) then
cells(cell.row,col).Value = v1(i)
col = col + 1
end if
Next
Next
End Sub
Modify v to include all the key words and v1 to include the words you want
placed to the right if a keyword is found
Code is untested and may contain typos, but should suggest a workable approach
--
Regards,
Tom Ogilvy
"Sandeman" wrote:
>
> Excel gurus...
>
> I have a spreadsheet that in Column C has descriptive data all in text
> form. The data might say something like "Paul is an Italian basketball
> player."
>
> What I need is for a macro to recognize the word "Italian" and place
> the word "Italy" in Column E to the right of the data column. Then I'd
> like to have another macro to recognize "basketball" and place
> "basketball" in Column F.
>
> However, sometimes there won't be information for Column E, in which
> case the data in Column F needs to move over to Column E if E is blank.
>
>
> And it needs to run for the entire set of rows.
>
> Is this possible? Many thanks in advance.
>
> Sandeman
>
>
> --
> Sandeman
> ------------------------------------------------------------------------
> Sandeman's Profile: http://www.excelforum.com/member.php...o&userid=32440
> View this thread: http://www.excelforum.com/showthread...hreadid=522153
>
>
Bookmarks