Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
i = ActiveCell.Interior.Color
 If Cells(Target.Row,  1 ).Value = "Выполнено" And i <>  65535  Or Cells(Target.Row,  1 ).Value = "Не утверждено" _
 And i <>  65535  Then
    Rows(Target.Row).Select
    With Selection.Interior 
        .ColorIndex =  6 
        .Pattern = xlSolid
    End With
 End If
 If Cells(Target.Row,  1 ).Value = "Открыто" And i <>  255  Then
    Rows(Target.Row).Select
    With Selection.Interior 
        .ColorIndex =  3 
        .Pattern = xlSolid
    End With
 End If
  If Cells(Target.Row,  1 ).Value = "Утверждено" And i <>  65280  Then
    Rows(Target.Row).Select
    With Selection.Interior 
        .ColorIndex =  4 
        .Pattern = xlSolid
    End With
 End If
   If Cells(Target.Row,  1 ).Value = "В работе" And i <>  16777215  Then
    Rows(Target.Row).Select
    Selection.Interior.ColorIndex = xlNone
 End If
End Sub

    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Выполнено"""
        Range(Cells(Target.Row,  1 ), Cells(Target.Row,  10 )).Select
    Selection.FormatConditions( 1 ).Interior.ColorIndex =  36 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Private Sub Worksheet_После_ввода_данных_в_ячейку(ByVal Target As Excel.Range)

Private Sub CommandButton1_Click()
Т.е. сюда передать код строки, да?
End Sub
[/quot]
[SRC vba]
Sub CondFormat(ByVal pstrRows As String)
'А тут с полученными строками опрерировать, причем Formula(12345) - не адрес, 
'а возможное местоположение курсора, полученное из CommandButton1_Click, да? 
    With Rows(pstrRows)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$A$1"
        .FormatConditions( 1 ).Interior.ColorIndex =  3 
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$B$1"
        .FormatConditions( 2 ).Interior.ColorIndex =  39 
    End With
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim pstRows As String

pstRows = Target.Row-  1 
pstRows = pstRows + ":" + pstRows 
If Cells(Target.Row -  1 , Target.Column) = "41" Then
    With Rows(pstRows)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=R1C1"
        .FormatConditions( 1 ).Interior.ColorIndex =  3 
    End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "Изменена ячейка " & Target.Address
End Sub

.....
pstRows = pstRows + ":" + pstRows 
If Cells(Target.Row -  1 , Target.Column) = "41" Then
    With Rows(pstRows)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=R1C1"
        .FormatConditions( 1 ).Interior.ColorIndex =  3 
    End With
End If
....

=OR($D2="Выполнено";$D2="Не утверждено")

=OR($D1="1";$D1="2")

=ИЛИ($D1= 1 ;$D1= 2 )

=ИЛИ($D1="Ништяк";$D1= 2 )

=ИЛИ($D1= 1 ;$D1= 2 )

=ИЛИ($D1="Ништяк";$D1= 2 )

If Cells(Target.Row, Target.Column) = "" Then Exit Sub
For Each rng In Range("A:A")
        On Error Resume Next
        Rows(rng.Row).Interior.ColorIndex = Application.WorksheetFunction.VLookup(rng.Value, ThisWorkbook.Sheets("Ëèñò2").Range("A:B"),  2 , False)
        If Err.Number <>  0  Then Rows(rng.Row).Rows.Interior.ColorIndex = xlNone
Next rng......