Xin code xóa dữ liệu tự động (1 người xem)

[ali3340tc]

Nhờ các bác hỗ trợ 1 đoạn code để có thể chạy được yêu cầu sau:

Giả sử có 2 ô: A1 và A2. Nếu nhập dữ liệu vào ô A1 thì ô A2 tự động bị xóa dữ liệu và ngược lại, nếu nhập dữ liệu vào ô A2 thì ô A1 tự động xóa dữ liệu.

Mong nhận được sự giúp đỡ của các bác.

Xin cảm ơn.

 

[giaiphap]

Bạn sử dụng code này cho sheet thử xem.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    [a2] = ""
    Application.EnableEvents = True
ElseIf Target.Address = "$A$2" Then
    Application.EnableEvents = False
    [a1] = ""
    Application.EnableEvents = True
End If
End Sub

 

[ali3340tc]

Rất cảm ơn bác đã hỗ trợ. Code chạy tốt. Một lần nữa Thanks bác.

 

[hoangyen69]

cho mình hỏi trường hợp mình gõ dữ liệu vào từng ô trong cột A, và dữ liệu tự động xóa từ ô A2 đến A1000 thì mình ghi code sao bạn ?