Format individual strings out of multiple strings within a cell with VBA

Thanks for the help guys, I am almost able to understand both responses.

Millz
Your response is working for the most part. When I run the macro, it sets all of the Values from cell B1 and B2 and B5 as italic and then sets the value from B5 Bold.

ProtonLeah
Your option is also working for the most part. When I run the macro, it sets part of the Value from B1 to Italic (The First 12 Characters) and then it sets the remaining characters from B1 that were not italicized as Bold along with the values from B2 and B5.

I will transfer my code to buttons on a worksheet and get examples of the 2 workbooks I am using loaded to show how the options provided are reacting on my end. One thing I should mention, is I will have to use this same functionality on some of the other cells in the rest of the code.

Originally Posted by jrtraylor

Millz
Your response is working for the most part. When I run the macro, it sets all of the Values from cell B1 and B2 and B5 as italic and then sets the value from B5 Bold.

I just tested a little, the code is working fine (at least for me). It seems that it's working but for your case, because the first character gets italicized, the next time a new value is entered into the cell, the entire cell becomes (stayed, rather) italicized.

One way is to do this:

Please Login or Register  to view this content.

Could be troublesome having to reset italic/bold each time but I guess that's necessary. You can just add them directly into the function if needed anyway, your choice.

Here are the 2 workbooks I am working from. Open the matrix upload first then the form upload. The form upload has 3 buttons for the 3 different macros (original from above, millz, and protonleah)

The matrix has the first row of data that identifies how I need the cell to look, the other 3 rows are the macro xfrs. I will need to be able to duplicate this in some other cells as well. Please note that these files are currently saved in compatibility mode but I am using office 2013. Not all computers have been updated to office 2013 yet.

Millz,
It seems I posted after you had already corrected it. thanks that works just fine.

Millz, so if I want to use this same function later in the code on the section below,

Please Login or Register  to view this content.

Would I be able to do this as well?

Please Login or Register  to view this content.

Yes you can just test it. If you know you will be always 'resetting' the format before formatting italic/bold you can add into the function like this:

Please Login or Register  to view this content.

Then run it with:

Please Login or Register  to view this content.

Millz,
Thanks again, I really need to learn about functions. Would you be able to tell me how I can extract the a string in a cell based on carriage returns or should I start another thread? If you look at the two workbooks I posted, there are 3 cells in the form that identify transferring only a company name from the information. The company name in the cells is either the 2nd string or the 3rd string where each string is separated by a carriage return.
Thanks again for the help

Millz,
I figured out how to write a function that would extract a specified string between characters, I add it with your function above and I have a wonderful little program.

Thanks a million.