Çözüldü Aktif hücre rengi

Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Satır As Range, Sütun As Range

    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

  

    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Columns.Count))

    Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column))

  

    Cells.FormatConditions.Delete

  

    With Satır

        .FormatConditions.Delete

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

        .FormatConditions(1).Font.Bold = True

        .FormatConditions(1).Interior.ColorIndex = 37

    End With

  

    With Sütun

        .FormatConditions.Delete

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

        .FormatConditions(1).Font.Bold = True

        .FormatConditions(1).Interior.ColorIndex = 37

    End With

  

    With ActiveCell

        .FormatConditions.Delete

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

        .FormatConditions(1).Font.Bold = True

        .FormatConditions(1).Interior.ColorIndex = 40

    End With

End Sub