How to extract text of some color from single cell?

[roberto.delagarza]

I need to extract some text from singe cells wich has been marked with another color, let's say red. Do you have a simple vba macro subroutine which can extract the text and write it in another cell? I will apply this sobroutine in the entire database field. Sometimes the text is contiguos in the cell, sometimes it isn't. Thanks !!

 

[Alanacran]

Thank you for your time Rick !

Ok so what I am trying to do is come up with a summary tab that is extracting data into a list of items (Example 1). I just hand typed this one to show what I am looking for. One column for each week will be the purple data and the other column will be the green data. The cells that I am wanting to extract the data from is on another tab where those cells have long strings of text that have different colors (Example 2). I was not getting a clean list with all of the data in one cell if that cell have two sets of data the same color so I tried breaking the data up into multiple columns as you can see on row 2 and row 3 in (Example 2). If that is what I need to do to make this work that is fine. Now when using your VBA code I am getting the purple data just fine because that is the RGB color that I am asking for in the coding (Example 3). And I am being able to get my list by using INDIRECT function which is fine also if that is how I must do it to get it how I want. But my issue is the other sets of text in say green I am needing to extract them also like the purple so I can put them in their own list. I was trying this with the ElseIf added to your VBA code but it is not working of course. I am very new to VBA so forgive me I am trying to learn as I go. Maybe I am going about this completely wrong or maybe not. Thank you again for taking a look.

Example 1

Example 2

Example 3

Example 4 (E2 is what is happening when I don't break up the data into different columns when there are sets of the same color)