Extract multiple data from cells in a range based on cell color

[daviskeas]

i want to take the data in the range C12:K20 and extract only the green colored cells into a list under A1.




https://www.dropbox.com/s/51phis2d5cb36ko/Screenshot%202018-12-19%2001.56.35.png?dl=0

 

[daviskeas]

Data in range is colored in manually.

 

[Fluff]

Try

Sub daviskeas()
   Dim Cl As Range
   
   For Each Cl In Range("C12:K20")
      If Cl.Interior.Color = Range("A1").Interior.Color Then
         Cl.Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
      End If
   Next Cl
End Sub

Cell A1 needs to have the colour fill that you are looking for.

 

[daviskeas]

It doesn't do anything when I enter this into VB. Do I need to do something on the spreadsheet to make it run something. Sorry I am very new to this and not sure. Thanks for you help.

 

[Fluff]

To run the code use
Alt F8 > select the macro > click "run"

 

[daviskeas]

Worked like a charm! Thanks so much for your help!

 

[Fluff]

You're welcome & thanks for the feedback