Không cho chép giá trị vào clipboard với code VBA

[voduyminh0504]

Chào các bạn,
rất mong nhận được hỗ trợ của các bạn với vấn đề sau.
Tôi viết code VBA để sau khi chọn một cell, bấm chuột vào một shape button thì chương trình sẽ mở sheet liên hệ với cell có giá trị tương đương với giá trị trong cell được chọn.

On Error GoTo IError
Dim cellValue As String
Dim rng As Range
cellValue = ActiveCell.Value
Worksheets("DANHSACH").Activate
Set rng = Columns("D").Find(What:=cellValue, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
rng.Activate
End If
IError:
Exit Sub

Code làm việc tốt. Tuy nhiên khi chuyển sang sheet mới thì giá trị trong cell được chọn luôn được chép vào clipboard (nếu enter với một cell trống thì sẽ hiện ra giá trị). Tôi đưa cả dòng Application.CutCopyMode = False, dùng Activate thay vì Select , đưa cả dòng Application.CutCopyMode = False vào Sub Activate cho sheet sẽ được mở nhưng cũng chẳng ăn thua.
Không rõ chúng ta có cách nào để chận không cho chép vào clipboard được không.
Xin cám ơn các bạn trước

 

[Hoàng Tuấn 868]

On Error GoTo IError
    Dim cellValue As String
    Dim rng As Range
    cellValue = ActiveCell.Value
    Worksheets("DANHSACH").Activate
    Set rng = Columns("D").Find(What:=cellValue, LookIn:=xlValues, LookAt:=xlWhole)
    If Not rng Is Nothing Then
        rng.Activate
    End If
        IError:
    Exit Sub

Anh nên đưa code vào trong thẻ code giống thế này cho gọn anh nhé.

 

[voduyminh0504]

Cám ơn anh Hoàng Tuấn 868 đã lưu ý.
Tôi xin ghi nhận.
Rất xin lỗi đã không lưu tâm đến việc này.

 

[huuthang_bd]

Tôi xin ghi nhận.

Ghi nhận thì sửa luôn đi chứ còn chờ gì nữa bạn.
Đoạn code ở bài #1 vô can nha.

 

[voduyminh0504]

Cám ơn anh HuuThang_bd nhắc nhở.
Nhưng thật tình tôi chẳng biết cái thẻ code ở đâu cả.

 

[huuthang_bd]

Cám ơn anh HuuThang_bd nhắc nhở.
Nhưng thật tình tôi chẳng biết cái thẻ code ở đâu cả.

Như hình nha bạn, không biết thì nên hỏi chứ đừng ghi nhận suông.

 

[voduyminh0504]

Cám ơn bạn HuuThang_bd lần nữa.
Tôi đã nắm được vấn đề [</>]
và tôi cũng đã tự giải quyết được vấn đề của tôi nên không cần gắn vào code nữa.