Hücre Seçildiğinde Satır ve Sütunun Renklenmesi

[mustafa1205]

Örnek dosyamdaki çalışmamda seçilen hücrenin bulunduğu satır ve sütun renkleniyor. Yapmak istediğim bu renklenmeye ek olarak A1 den F1 hücresine kadar sabit turuncu renk yapmak istiyorum. Yani bu aradaki hücrelerin sabit renk olarak kalmasını istiyorum. Bu kodu düzenleyemedim. Teşekkürler...

 

[tahsinanarat]

Aşağıdaki kodları deneyiniz

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Satır As Range, Sütun As Range
    
    Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
    Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
    Cells.FormatConditions.Delete
    
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    
    With Satır
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 17
    End With
    
    With Sütun
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 22
    End With
    With ActiveCell
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:=1
        .FormatConditions(1).Font.Bold = True
        .FormatConditions(1).Interior.ColorIndex = 4
    End With
End Sub

 

[mustafa1205]

Tahsin Bey çok teşekkür ederim. Gecenin bu saatinde işimi gördünüz. Çok sağolun ...

 

[cetins58]

Çok güzel ama koşullu Biçimlendirmeleri iptal ediyor.Önemli olan iptal etmemesi