Hücre Renginin Otomatik Değişmesi

[furens]

Ekli Dosyada bulunan sayfada B-E-H sütunlarından birisine bir değer girildiğinde A sütunundaki onun satırındaki hücrenin rengi o sütunun hücre rengine otomatik dönüşmesi, ayrıca B-E-H sütunlarından birisine bir değer girildiğinde k sütununda hücresine otomatik tarih ve l sütunundaki sırasının karşılığınada otomatik saat atması.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B,E:E,H:H]) Is Nothing Then Exit Sub
    Cells(Target.Row, 1).Interior.Color = Target.Interior.Color
    Cells(Target.Row, "k") = Date
    Cells(Target.Row, "l") = Time
End Sub