Giúp tắt Msg sau khi CutCopyMode = False (1 người xem)

[Nguyễn Hồng Quang]

Dear all
Nhờ các bạn giúp mình tắt Msg.box trong đoạn code này khi ngừng chế độ copy
Đoạn code này mình tạo ra với mong muốn là có tác dụng thay thế thao tác Ctrl+C (tại cột B) và Ctrl+V (tại các cột khác) bằng 1 Msg Box (Yes/No) Paste dữ liệu Copy
Nhưng mình không biết làm thế nào để tắt cái Msg Box kia khi ngừng chế độ Copy. Các bạn giúp mình với

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
    Else
      ActiveCell.Copy


 End If
 If Intersect(Target, Range("C:C")) Is Nothing Then
    Else
       ActiveSheet.Paste
End If


If Intersect(Target, Range("B:B")) Is Nothing Then
    DK = MsgBox("Do you want paste here?", vbYesNo + vbQuestion, "Choice Box")
    If DK = vbYes Then
    
 ActiveSheet.Paste
 Else
 ActiveCell.ClearContents
End If
End If
End Sub

Gửi các bạn file test (các bạn mở giúp mình Viewcode và Paste code trên để Test nhé)
Thanks all

 

[befaint]

application.displayAlerts

p/s: Bài đó người ta cần dán vào phần mềm khác mà...

 

[Nguyễn Hồng Quang]

application.displayAlerts

p/s: Bài đó người ta cần dán vào phần mềm khác mà...

Bác befaint giúp mình với
Chuyện là Sau khi đọc xong bài người ta. mình nảy ra ý nghĩ là copy paste trong 1 bảng excel bằng mấy phát click với cái Msgbox đấy
Nhưng mà không biết làm thế nào để tắt cái Msgbox đấy khi ngừng copy. Click chuột vào ô nào nó cũng nhảy ra