Раскраски для ячеек на основе нескольких критериев

Question

У меня есть таблица, в которую мы постоянно добавляем данные. Эти данные импортируются из отчета и добавляются в конец электронной таблицы. У меня уже есть макрос, чтобы удалить дубликаты. Существует еще один макрос, который будет выделять определенные строки на основе одного из содержимого ячеек, а затем сделать копию строки и вставить ее в другой лист в книге. В одном из столбцов требуется число, как данные. Однако иногда это число недоступно, и мы вводим «RCA Pending» в эту ячейку.

Что мне нужно сделать, это выделить клетку, выделенную красным цветом. Но, как только число вводится в ячейку, мне нужно, чтобы цвет ячейки изменился на «без заполнения», если только эта строка не подсвечена из предыдущего макроса, который был запущен.

Expected result sample

Я не против объединения этих макросов, если это проще.

Вот первый макрос перечисленных выше:

' This part highlights all rows that are Disputed 
' Keyboard Shortcut: CTRL+SHIFT+L 

    Dim row As Range 
    For Each row In ActiveSheet.UsedRange.Rows 
     If row.Cells(1, "F").Value = "After Dispute For SBU" Then 
      row.Interior.ColorIndex = 6 
     Else 
      row.Interior.ColorIndex = xlNone 
     End If 
    Next row 

' This part clears the Disputed worksheet and copies all disputed rows to the sheet 

With ThisWorkbook.Worksheets("Disputed") 
Range(.Range("A2"), .UsedRange.Offset(1, 0)).EntireRow.Delete 
End With 

Dim lr As Long, lr2 As Long, r As Long 
lr = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).row 
lr2 = Sheets("Disputed").Cells(Rows.Count, "A").End(xlUp).row 
For r = lr To 2 Step -1 
    If Range("F" & r).Value = "After Dispute For SBU" Then 
     Rows(r).Copy Destination:=Sheets("Disputed").Range("A" & lr2 + 1) 
     lr2 = Sheets("Disputed").Cells(Rows.Count, "A").End(xlUp).row 
    End If 

    Range("A2").Select 
Next r 
Range("C" & Rows.Count).End(xlUp).Offset(1).Select 
End Sub 

Answer 1

Как насчет с помощью условного форматирования на данных. Вы могли бы использовать формулу, как

=$A2="RCA Pending" 

, который предполагает, что данные начинаются в А2 и столбец в вопросе A. Вы должны выбрать все столбцы во всех строк, начиная с А2, а затем примените CF