Dear Diễn Đàn,
Mình đang sử dụng đoạn code này để tự động fill ngày vào cột thứ 19, nhưng khi mình sử dụng protect sheet đối cột thứ 19 thì nó cứ báo lỗi.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c1:c1001]) Is Nothing Then
If Len(Target) Then Target.Offset(, 19) = VBA.Date
End If
End Sub
Thêm một thông tin nhờ các A/C giúp là mình muốn dữ liệu của cột 19 số 19 sẽ được tự động điền ngày vào nếu các cột sau có dữ liệu 0, 7, 8 (kể cả dữ liệu nhậ trực tiếp và dữ liệu được cài công thức để fill)
Mong nhận được sự giúp đỡ của diễn đàn.
Mình đang sử dụng đoạn code này để tự động fill ngày vào cột thứ 19, nhưng khi mình sử dụng protect sheet đối cột thứ 19 thì nó cứ báo lỗi.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c1:c1001]) Is Nothing Then
If Len(Target) Then Target.Offset(, 19) = VBA.Date
End If
End Sub
Thêm một thông tin nhờ các A/C giúp là mình muốn dữ liệu của cột 19 số 19 sẽ được tự động điền ngày vào nếu các cột sau có dữ liệu 0, 7, 8 (kể cả dữ liệu nhậ trực tiếp và dữ liệu được cài công thức để fill)
Mong nhận được sự giúp đỡ của diễn đàn.