xoá dữ liệu vừa nhập khi có hiện hộp thông báo (1 người xem)

[quoc nhat]

Nhờ cả nhả giúp em với ạ!
Trong UserForm 2. Nếu dữ liệu vừa nhập vào textbox 1 đã có trên sheet ( hiện hộp thông báo" dữ liệu về thẻ này đã có")
thì xoá dữ liệu vừa nhập trên textbox 1. nếu chưa xó thì vẫn giữ nguyên.
à cho em hỏi thêm có cách nào để làm thêm 1 hộp thông báo " dữ liệu chưa có" nếu tìm kiếm không thấy kết quả không ạ?

 

[dhn46]

Trong Code bạn đã viết được đoạn tìm kiếm trên Sheet

Set Rng = Sheet2.Range("A3:A" & Sheet2.[a65500].End(3).Row).Find(Me.TextBox1.Value, , , xlWhole)
If Not Rng Is Nothing Then
 MsgBox "SO THE NÀY DA CO TRONG DU LIEU", , "THÔNG BÁO"
End If

Vậy để xóa hay hiện cái gì đó thì chỉ cần xử lý trong If ..End if

If Not Rng Is Nothing Then
      MsgBox "SO THE NÀY DA CO TRONG DU LIEU", , "THÔNG BÁO"
      TextBox1 = ""
Else
      MsgBox "DU LIEU CHUA CO", , "THÔNG BÁO"
End If

--------------
Ngoài lề 1 chút: bạn đã viết được tới đây sao không thể xử lý vụ này nhỉ?

 

[quoc nhat]

Trong Code bạn đã viết được đoạn tìm kiếm trên Sheet

Set Rng = Sheet2.Range("A3:A" & Sheet2.[a65500].End(3).Row).Find(Me.TextBox1.Value, , , xlWhole)
If Not Rng Is Nothing Then
 MsgBox "SO THE NÀY DA CO TRONG DU LIEU", , "THÔNG BÁO"
End If

Vậy để xóa hay hiện cái gì đó thì chỉ cần xử lý trong If ..End if

If Not Rng Is Nothing Then
      MsgBox "SO THE NÀY DA CO TRONG DU LIEU", , "THÔNG BÁO"
      TextBox1 = ""
Else
      MsgBox "DU LIEU CHUA CO", , "THÔNG BÁO"
End If

--------------
Ngoài lề 1 chút: bạn đã viết được tới đây sao không thể xử lý vụ này nhỉ?

Hì, em không biết thật nên mới nhờ các anh chị giúp đỡ chứ.
em làm được rồi.