Xin các thầy trợ giúp code chỉnh sửa

[giahy6104]

Chuyện là em mới vừa biết đến vba cũng tập tành vọc vạch các thầy cho em hỏi là sao em code phần chỉnh sửa nhưng nó vẫn nạp lại dữ liệu ở dòng cuối là sao vậy ạ ?
Với lại em gắn sự kiện cho checkbox như vậy có hợp lý chưa ạ ?
Rất mong được học hỏi và nhận được sự giúp đỡ từ các thầy
Em xin cảm ơn

 

[SA_DQ]

Phần chỉnh sửa mà bạn nói đến chắc như được trích dưới đây:

Private Sub CmdSearch_Click()
    Dim I&, lR&
    Dim Rng As Range, sRng As Range
 
    Set Sh = Sheet1
    lR = Sh.Cells(Rows.Count, "C").End(xlUp).Row
    Set Rng = Range("B5:N" & lR)
    Set sRng = Rng.Find(txtsearch.Value)
    If sRng Is Nothing Then
        MsgBox " Không có tên này trong Danh Sách": Exit Sub
    Else
        I = sRng.Row
 ' . . . . . . . . . . . .   '
    End If
 ' . . . . . . . .     '
End Sub

Trong này còn 1 số vấn đề cần bàn:
(1) Bạn áp dụng phương thức FIND(0 rất bấp bênh, vì không xài tí tham số nào ràng buột, như tìm nguyên (từ) hay chỉ tìm 1 phần;
Tìm ở quá nhiều cột; lí ra người ta chỉ tìm trên 1 cột mà thôi, & thường đó là cột mã BN, như ngành CA tìm trên CCCD ý.
(2) Để tìm theo mã BN thì phải có cột mã bênh nhân này thật khoa học;
Mình xin sẽ giới thiệu với bạn 1 file tìm kiếm như dính kèm dưới đây
(Nếu có gì cần thảo luận về file, ta sẽ tiếp tục)

 

[giahy6104]

Phần chỉnh sửa mà bạn nói đến chắc như được trích dưới đây:

Private Sub CmdSearch_Click()
    Dim I&, lR&
    Dim Rng As Range, sRng As Range
 
    Set Sh = Sheet1
    lR = Sh.Cells(Rows.Count, "C").End(xlUp).Row
    Set Rng = Range("B5:N" & lR)
    Set sRng = Rng.Find(txtsearch.Value)
    If sRng Is Nothing Then
        MsgBox " Không có tên này trong Danh Sách": Exit Sub
    Else
        I = sRng.Row
 ' . . . . . . . . . . . .   '
    End If
 ' . . . . . . . .     '
End Sub

Trong này còn 1 số vấn đề cần bàn:
(1) Bạn áp dụng phương thức FIND(0 rất bấp bênh, vì không xài tí tham số nào ràng buột, như tìm nguyên (từ) hay chỉ tìm 1 phần;
Tìm ở quá nhiều cột; lí ra người ta chỉ tìm trên 1 cột mà thôi, & thường đó là cột mã BN, như ngành CA tìm trên CCCD ý.
(2) Để tìm theo mã BN thì phải có cột mã bênh nhân này thật khoa học;
Mình xin sẽ giới thiệu với bạn 1 file tìm kiếm như dính kèm dưới đây
(Nếu có gì cần thảo luận về file, ta sẽ tiếp tục)

dạ em cảm ơn , em sẽ tham khảo thêm