Help on macro – Filtering a table into other sheet

[solracesoj]

I’ve a table in Sheet1 in witch the cells have text in different colours (black, red, blue and pink). I want to make the table appear in sheet2 but only showing the cells in wich the text is red or pink.

Is this possible?

Thanks!


J.C.

 

[onlyadrafter]

Re: Help on macro – Filtering a table into other s

Hello,

Does this code suit your needs?

Sub RED_PINK_ONLY()
    Range("D3:G5").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("D3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    For Each CELL In Selection
        If CELL.Font.ColorIndex <> 38 And CELL.Font.ColorIndex <> 3 Then
            CELL.Clear
        End If
    Next CELL
End Sub

Youe will need to change the cell refs and colorindex numbers to suit.

 

[solracesoj]

Re: Help on macro – Filtering a table into other s

Tanks for the reply,

The code suited my needs! I just have a question: How can I know the code number for other colours?

I’ve notice that you used the numbers 38 and 3 for the colours pink and red, but if I want to use other colours where can I see there code numbers?

J.C.

 

[onlyadrafter]

Re: Help on macro – Filtering a table into other s

Hello,

use the MACRO recorder and change the text colour of a cell, go through all the colours you require, go to the VB window and the code will have been created. You just have to remember which order you selected them.

OK?