satır renklendirme

[airborne]

s.a.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    'ActiveCell.EntireColumn.Interior.ColorIndex = 8 'Sütun Rengi
    ActiveCell.EntireRow.Interior.ColorIndex = 4 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 8 ' Hücre Rengi
End Sub

kodu ile tüm satır renkleniyor, fakat bu kodun sayfa1 de B4:AG18 arasında çalışması için ne gibi bir düzenleme yapılabilir.

Selametle.............................................

 

[airborne]

s.a.

Teşekkür ederim. Ellerinize sağlık.

Selametle.............................