use if statement with cells color condition

[mahex]

hello everyone,

i have a table that some of its cells are filled with yellow color

i want to do this:

if cellscolor = yellow then
'command
endif

what is the exact vba code for this statement?

 

[My Aswer Is This]

Try something like this:

Sub Table_Cell_Color()
'Modified 5/6/18 2:35 AM EDT
Dim c As Range
    For Each c In ActiveSheet.ListObjects("Table1").DataBodyRange
        If c.Interior.Color = vbYellow Then c.Value = "I am yellow"
    Next
ActiveSheet.ListObjects("Table1").DataBodyRange.Columns.AutoFit
End Sub

 

[Peter_SSs]

Your image doesn't look like a formal table (ListObject) and we can't see the row numbers, but perhaps you need something like this (assuming that first value is in cell V8).

Sub ActOnYellow()
  Dim c As Range
  
  For Each c In Range("V8", Range("V" & Rows.Count).End(xlUp))
    If c.Interior.Color = vbYellow Then
      'Put the code to deal with yellow cells here
      
    End If
  Next c
End Sub