Bẫy lỗi bằng cách xuất hiện thông báo (1 người xem)

[adult]

Chào các anh chị,
Mình muốn chèn thêm đoạn code để khi tìm không thấy dữ liệu, nó sẽ xuất hiện lên thông báo để user biết nhưng mình đã thực hiện không biết sai chỗ nào nên cho dù tìm thấy dữ liệu hay không nó đều báo lỗi hết. Các anh chị xem và sửa giúp mình nhé

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$4" Then
Ngay
Else
MsgBox "Khong tim thay ngay trong du lieu. Vui long kiem tra lai", vbOKOnly, "Thong bao"
End If
Application.ScreenUpdating = True
End Sub

Chân thành cảm ơn

 

[Let'GâuGâu]

đoạn code này là nếu bạn có tác động vào Cell A4==>thì chạy sub ngày, nếu tác động vào cell khác thì hiện thông báo trên
chứ có tìm gì đâu?

 

[adult]

đoạn code này là nếu bạn có tác động vào Cell A4==>thì chạy sub ngày, nếu tác động vào cell khác thì hiện thông báo trên
chứ có tìm gì đâu?

Nhờ bạn mà mình chèn vô thành công rồi. Phải chèn vô code Ngày mới đúng ý đồ. Cảm ơn nhé

 

[Let'GâuGâu]

Vậy mình phải chỉnh trong sub ngày ah?

chắc vậy ai biết trong sub bạn viết cái gì?