Nút xóa UserFrom ko xóa hết được dữ liệu trong bảng tính

[enter86]

Chào A/C/E trong diễn đàn
Mình mới tập tành làm cái Ứng dụng quản lý gửi tài liệu đi các đơn vị.
Tuy nhiên trong Urser Fom nút XÓA dữ liệu sau khi tìm kiếm load được dữ liệu lên Texbox mình thử xóa dữ liệu thì xảy ra trường hợp là cái xóa được cái ko, Nói chung là xóa được nhưng nó ko hết.
Nhờ anh em xem giúp mình bị lỗi ở chỗ nào với nhé. TK mọi người.
Private Sub btnDelete_Click()
On Error Resume Next
k = 0
Do
DoEvents
k = k + 1
p = Sheet1.Range("a" & k)
If p = txtCont.Text Then
Sheet1.Range("a" & k).Select
Selection.Delete
Sheet1.Range("b" & k).Select
Selection.Delete
Sheet1.Range("c" & k).Select
Selection.Delete
Sheet1.Range("d" & k).Select
Selection.Delete
Sheet1("e" & k).Select
Selection.Delete
Sheet1.Range("f" & k).Select
Selection.Delete
Sheet1.Range("g" & k).Select
Selection.Delete
Sheet1.Range("h" & k).Select
Selection.Delete
Sheet1.Range("i" & k).Select
Selection.Delete
Sheet1.Range("j" & k).Select
Selection.Delete
End If
Loop Until p = ""
Form1.txtCont.SetFocus
End Sub

 

[nguyentinhhn]

Bạn thử sửa như này xem:
Private Sub btnDelete_Click()
On Error Resume Next
k = 1
Do
p = Sheet1.Range("a" & k)
If p = txtCont.Text Then
Sheet1.Range("a" & k & ":" & "j" & k).Select
Selection.Delete
End If
k = k + 1
Loop Until p = ""
Form1.txtCont.SetFocus
End Sub

 

[enter86]

Bạn thử sửa như này xem:
Private Sub btnDelete_Click()
On Error Resume Next
k = 1
Do
p = Sheet1.Range("a" & k)
If p = txtCont.Text Then
Sheet1.Range("a" & k & ":" & "j" & k).Select
Selection.Delete
End If
k = k + 1
Loop Until p = ""
Form1.txtCont.SetFocus
End Sub

Thank bạn nhé! Mình đã thử đoạn code và xóa được hết rồi!