Có thể tự động copy khi bôi màu không?

[thanhlanh]

Có sự kiện nào thực thi được đoạn code này không? cụ thể là khi ta chọn một số ô trên cột B để bôi màu thì cột E sẽ có giá trị bằng cột D tương ứng.
For Each Ce In Intersect(Target.EntireRow, [B:B])
If Ce.Interior.ColorIndex = 6 Then
Ce.Offset(, 3) = Ce.Offset(, 2).Value
Else
Ce.Offset(, 3) = ""
End If
Next
Nhờ các bạn giải quyết. Cảm ơn!