Sütun ve Satır Reklendirme

[Mehmet Sait]

Merhaba,

Ekli kod ile bulunduğum satırı ve sütunu renklendiriyorum. Ancak bulunduğum satır ve sütunu komple renklendirmesi için kodda nasıl bir değişim yapmam gerek.

Örnek dosya ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(3).FormatConditions.Delete
    Rows(4).FormatConditions.Delete
    With Cells(Target.Row, 3)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
    With Cells(4, Target.Column)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
End Sub

Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
    With Target.EntireColumn
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
End Sub

 

[Mehmet Sait]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
    With Target.EntireColumn
        .FormatConditions.Add Type:=xlExpression, Formula1:="=1"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 64636
            .TintAndShade = 0
        End With
    End With
End Sub

Teşekkür ederim