[vba]. read values in color only on vba.

[montecarlo2012]

Hi everyone.
How to read only the values with colors in a column and display this values in a row in another sheet, small example don't need xl2BB I think, so couple images can show my point.
this is what I have on sheet2

and this is the results I am expecting on sheet3

Please, Can anyone tell me how to do this.
thank you.

 

[montecarlo2012]

Ezguy4u
Great job, thank you so much, I got a good lesson from you.

 

[DanteAmor]

Excellent DanteAmor. Thank you for your help.

You could simplify like this:

Sub Macro8()
  Dim c As Variant, d As Range, j As Long
  
  j = 2
  For Each c In Array("I", "L", "O", "R", "U", "X", "AA")
    For Each d In Sheet2.Range(c & 1, Sheet2.Range(c & Rows.Count).End(3))
      If d.Interior.ColorIndex <> xlNone Then Sheet3.Cells(j, Sheet3.Cells(j, Columns.Count).End(1).Column + 1) = d
    Next d
    j = j + 1
  Next c
End Sub

 

[montecarlo2012]

DanteAmor MVP great awesome person, thank you so much.
Work complete perfect.

 

[DanteAmor]

Glad we could help & thanks for the feedback