Take the 2-minute tour ×
Super User is a question and answer site for computer enthusiasts and power users. It's 100% free, no registration required.

I have a spreadsheet with a cell which contains every app on a computer. I want a macro to extract a specific application from the list and delete the rest of the apps and simply display the application I want in the same or next cell.

For example the cell data looks like this:

"Microsoft Office Project Professional 2010 - 14.0.6029.1000"; "Security Update for Microsoft Office 2010 (KB2598039) 32-Bit Edition"; "Security Update for Microsoft Office 2010 (KB2553091)"; "Definition update for Microsoft Office 2010 (KB982726) 32-Bit Edition"; "Update for Microsoft Office 2010 (KB2553455) 32-Bit Edition"; "Update for Microsoft Office 2010 (KB2494150)"; "Update for Microsoft Office 2010 (KB2553181) 32-Bit Edition"; "Microsoft Project 2010 Service Pack 1 (SP1)";

I would like it to search the cell for any version of "Microsoft Office Project" then delete the rest of the cell text and display Microsoft Office Project Professional 2010 - 14.0.6029.1000.

I don't know where to begin as I've never created a macro. Any ideas how I can do this?

share|improve this question
add comment

2 Answers

Here's a formula solution. If the text is in A1, you can enter the following in B1:

=MID(A1,FIND("Microsoft Office Project",A1),FIND("""",A1,FIND("Microsoft Office Project",A1))-FIND("Microsoft Office Project",A1))
share|improve this answer
    
Thanks very much, that works well just need to tweak it a little. Much appreciated –  Michael Jul 25 '12 at 3:20
    
How could I tweak he formula to respond with a 0 or something else if it doesnt find anything. It seems to bring down the result from the box above if nothing is found? –  Michael Jul 25 '12 at 3:40
    
It should throw an error if nothing is found. Perhaps you missed an A1 in the formula when tweaking it? –  Excellll Jul 25 '12 at 4:25
add comment

Here is another solution which displays "not found" if the search string could not be found:

=IF(ISNUMBER(FIND("Microsoft Office Project Professional",A1)),MID(A1,FIND("Microsoft Office Project Professional",A1),FIND("""",A1,FIND("Microsoft Office Project Professional",A1)+1)-FIND("Microsoft Office Project Professional",A1)),"not found")

share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.