IF Cell Colour = Yellow, Copy Value to List - VBA

[peterhinton]

Hi All,

I am looking for a way to populate a list, based on a range of Cells Background Colour.

The range is C19:C619 on sheet called: Stock and Sales Report.

Any Cell that has background Colour Yellow, i want their values copied and pasted into a list starting in A1 on sheet called: EmulatorInput

Is this possible, where would I start ?

 

[FormR]

Hi, you could give this a try.

Sub m()
Dim c As Range
For Each c In Sheets("Stock and Sales Report").Range("C19:C519")
    If c.Interior.Color = vbYellow Then
        Sheets("EmulatorInput").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = c.Value
    End If
Next c
End Sub

 

[Scott T]

If the cells are colored by conditional then you would need to use this code in place of If c.Interior.Color = vbYellow Then

If c.DisplayFormat.Interior.Color = vbYellow Then