Koşullu biçimlendirme kodlarını yazayım iserseniz.
A1:M100 aralığındaki sadece koşullu biçimlendirme renkler silinir ani başka varsa bu aralıkta.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If Not Intersect(Target, Range("A1:M100")) Is Nothing Then



  [A1:M100].FormatConditions.Delete



    Set satir = Range("A" & Target.Row, "M" & Target.Row)

    Set sütun = Range(Cells(1, Target.Column), Cells(100, Target.Column))

    Set feraz = Union(satir, sütun)

    

  

    feraz.FormatConditions.Add Type:=xlExpression, Formula1:="1"

    feraz.FormatConditions(1).Interior.ColorIndex = 4 'yesil renk



Else

    [A1:M100].FormatConditions(1).Interior.ColorIndex = 0

End If



End Sub