IF statement for fill color?

[paquirl]

After filtering a column for a fill color yellow:

ActiveSheet.Range("$A$1:$AB$1217").AutoFilter Field:=11, Criteria1:=RGB(255 _
        , 255, 0), Operator:=xlFilterCellColor

I want to then do an IF THEN logic command as follows: IF no yellow filled cells exist in Field:=11, THEN skip to another step (4 steps down). Can anyone help me figure out how to do this IF THEN command?

 

[paquirl]

This is not working

ActiveSheet.Range("$A$1:$AB$1217").AutoFilter Field:=11, Criteria1:=RGB(255 _        , 255, 0), Operator:=xlFilterCellColor
            
    'IF no yellow exists, THEN END SUB
        If Range("K2:K1217").End(xlUp).Row < 1 Then
               Exit Sub
        End If
        
        If Range("K2:K1217").End(xlUp).Row > 1 Then
    'Populate formula in BEST MATCH column [=Suggested UPC column]
        Range("R2:R1217").SpecialCells(xlVisible).Formula = "=RC[-7]"
        End If

 

[paquirl]

THIS SEEMS TO WORK THO!

If Range("K2:K1217").End(xlUp).Row <> RGB(255, 255, 0) Then            ActiveSheet.Range("$A$1:$AB$1217").AutoFilter Field:=11
            Exit Sub
        End If

 

[paquirl]

ok i'm wrong again, this is so frustrating !!!

 

[paquirl]

Sub CCT1_BLUE_YELLOW()                        
        Columns("K:K").Select
        Selection.NumberFormat = "00000000000"
        
        Columns("N:N").Select
        Selection.NumberFormat = "00000000000"
                
    'Filter SUGGESTED UPC column for highlighted stock parts (yellow fill)
        ActiveSheet.Range("$A$1:$AB$1217").AutoFilter Field:=11, Criteria1:=RGB(255 _
        , 255, 0), Operator:=xlFilterCellColor
            
    'IF no yellow exists, THEN EXIT SUB
        If Range("K2:K1217").End(xlUp).Row <> RGB(255, 255, 0) Then
        Exit Sub
        End If
        
    'Populate formula in BEST MATCH column corresponding to any yellow cells that got filtered in column K
        If Range("K2:K1217").End(xlUp).Row > 1 Then
           Range("R2:R1217").SpecialCells(xlVisible).Formula = "=RC[-7]"
        End If
        
    'Remove filter from SUGGESTED UPC column
        ActiveSheet.Range("$A$1:$AB$1217").AutoFilter Field:=11
      
End Sub

I want it to get to column K, filter for any yellow-filled cells, and if there are none, exit this sub routine, but then continue on to any subsequent sub routines. If yellow filled cells exist, don't exit the sub, continue on to the formula fill.

What's happening during the debug process is when it gets to the "exit sub" command it is just exiting the sub. It isn't taking into account the logic statement.

 

[jeffreybrown]

Answered provided at: https://www.excelforum.com/excel-pr...-if-statement-for-fill-color.html#post4663305