Bẫy lỗi cho nút Delete

[thlpro]

Các bạn chỉnh cái code này giúp mình với. Khi nhấn nút delete ở sheet Tim Du Lieu, thì nó hiện ra hộp thoại ko có nhân viên này. Giờ mình muốn khi xoá nó thì message đó ko hiển thị ra mà nó chọn về lại ô C3 được ko? Cảm ơn các bạn.

 

[huuthang_bd]

Các bạn chỉnh cái code này giúp mình với. Khi nhấn nút delete ở sheet Tim Du Lieu, thì nó hiện ra hộp thoại ko có nhân viên này. Giờ mình muốn khi xoá nó thì message đó ko hiển thị ra mà nó chọn về lại ô C3 được ko? Cảm ơn các bạn.

Bạn sửa code của even Worksheet_Change thành như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C3]) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    Set Sh = ThisWorkbook.Worksheets("Nhan Vien")
    Set Rng = Sh.Range(Sh.[B3], Sh.[B65500].End(xlUp))
    Set sRng = Rng.Find(Target.Value, , xlValues, xlWhole)
    If sRng Is Nothing Then
        If [C3].Value = "" Then
            [C4:C5].ClearContents
            [C3].Select
        Else
            MsgBox "Khong Có Nguo2i Này", , "GPE Xin Luu Í"
        End If
    Else
        With Target
            .Offset(1).Value = sRng.Offset(, 1).Value
            .Offset(2).Value = sRng.Offset(, 2).Value
            '.Offset(3).Value = sRng.Offset(, 5).Value
            '.Offset(4).Resize(3).Value = "? GPE"
        End With
    End If
 End If
End Sub

 

[thepdaoson]

Để ra kết quả như bạn cần, tại sao không dùng
C4=IF(C3="","",VLOOKUP(C3,'Nhan Vien'!B326,2,0))
C5=IF(C3="","",VLOOKUP(C3,'Nhan Vien'!B326,3,0))
Cho dễ hiểu.