Aktif Hücrenin Satırını Renklendirmek

[mesutaygun70]

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 38
End Sub

Bu şekilde kod var satırı renklendiriyor. Bu kodu her sayfanın içine yazmam gerek. Bir çok sayfa var. Çalışma kitabı olarak WorkBook olarak yaptım çalışmadı. Bu kodu tek yere yazma ile tüm çalışma kitabına nasıl uygulayabilirim.

 

[ÖmerFaruk]

Çalışma Kitabının kod sayfasında deneyin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = 0 'Turn off previous use
If ActiveSheet.Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 38
End Sub