satır renklendirme kodu hk.

[kemal turan]

Merhaba,
Aşağıdaki kod aktif satırı renklendiriyor.
Fakat 1 nci başlık satırını rengini beyaz yapıyor.
İsteğim 1 nci satır renginin değişmemesi.
Yardımlarınızı rica ediyorum.
Teşekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row > 2 Then
    Cells.Interior.ColorIndex = xlColorIndexNone
    ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
End If
End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Row > 2 Then
        Range("A3:" & Cells(Rows.Count, Columns.Count).Address).Interior.ColorIndex = xlColorIndexNone
        ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
    End If
End Sub

 

[kemal turan]

Teşekkür ederim