Auto copy dữ liệu từ cột nhập sang cột ngày tương ứng với ngày nhập (2 người xem)

[Ba Tê]

Anh Ba Tê ơi, sao mỗi lần em thêm dòng hay xóa dòng là con chuột của em nó quay tròn mãi không chịu nghỉ thôi, Anh xem thử có vấn đề gì không anh

Vậy thì bạn đừng chèn hoặc xoá dòng vì đây là sự kiện Worksheet_Change. Mọi tác động vào vùng khai báo đều làm cho code chạy.

 

[roadno1]

Vậy thì bạn đừng chèn hoặc xoá dòng vì đây là sự kiện Worksheet_Change. Mọi tác động vào vùng khai báo đều làm cho code chạy.

Nó chạy cũng được nhưng vấn đề là chuột nó quay quá lâu không chịu nghĩ, nó mà xử lý nhanh thì hay biết máy anh,
chứ nó quay hoài là không làm gì được với bảng tính hết anh

 

[Ba Tê]

Nó chạy cũng được nhưng vấn đề là chuột nó quay quá lâu không chịu nghĩ, nó mà xử lý nhanh thì hay biết máy anh,
chứ nó quay hoài là không làm gì được với bảng tính hết anh

Thay cái đoạn code của bạn thành cái này xem.
Không được Delete cả dòng, chỉ được xoá dữ liệu thôi.
[GPECODE=vb]
Dim Col As Long, Cl As Range
Col = Day([AD4])
If Target.Address = "$AD$3" Then
Application.EnableEvents = False
Range("AD6:AD1000").Value = Range("AD6").Offset(, Col).Resize(998).Value
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("AD6:AD1000")) Is Nothing Then
If Target.Columns.Count = 1 Then
For Each Cl In Target
Cl.Offset(, Col).Value = Cl.Value
Next Cl
End If
End If


[/GPECODE]

 

[roadno1]

Thay cái đoạn code của bạn thành cái này xem.
Không được Delete cả dòng, chỉ được xoá dữ liệu thôi.
[GPECODE=vb]
Dim Col As Long, Cl As Range
Col = Day([AD4])
If Target.Address = "$AD$3" Then
Application.EnableEvents = False
Range("AD6:AD1000").Value = Range("AD6").Offset(, Col).Resize(998).Value
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("AD6:AD1000")) Is Nothing Then
If Target.Columns.Count = 1 Then
For Each Cl In Target
Cl.Offset(, Col).Value = Cl.Value
Next Cl
End If
End If


[/GPECODE]

Dạ được rồi anh, em xóa luôn dòng và chèn thêm dòng mới chuột không còn quay tròn nữa. Thank anh nhiều nhiều