Tạo được Buttion chuyển dịch theo vị trí con trỏ nhưng làm xóa mất lệnh copy

[duynhat84]

Em học trên DĐ đã tạo được cái Buttion chuyển dịch theo vị trí con trỏ nhưng khi em copy số liệu ở trang khác để paste vào trang này thì lệnh copy không còn nữa để mà paste
Nhờ các Anh Chi chỉ giùm em xin cảm ơn nhiều.
Nếu được thì làm giùm em luôn cho BT tự trôi theo màn hình khi mình kéo thanh trược hoạc lăn con trỏ
Em gửi File kèm theo(tạm gọi là BT trôi)


Cảm ơn bạn nhiều nhưng sau khị paste song BT không tự dịch chuyển suống mà phải nhắp đúp một lần để bỏ lệnh Copy nó mới dịch chuyển

 

[ndu96081631]

Em học trên DĐ đã tạo được cái Buttion chuyển dịch theo vị trí con trỏ nhưng khi em copy số liệu ở trang khác để paste vào trang này thì lệnh copy không còn nữa để mà paste
Nhờ các Anh Chi chỉ giùm em xin cảm ơn nhiều.
Nếu được thì làm giùm em luôn cho BT tự trôi theo màn hình khi mình kéo thanh trược hoạc lăn con trỏ
Em gửi File kèm theo(tạm gọi là BT trôi)

Sửa code thành vầy nhé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim iR As Double
  On Error Resume Next
  If Not Intersect(Target, Range("B:K")) Is Nothing _
    And Application.CutCopyMode = 0 Then
      iR = Target(-3, 1).Top
      CommandButton1.Top = iR
  End If
End Sub

 

[duynhat84]

Lâu quá không có ai giúp cứ tưởng bế tắc nay vào lại diễn đàn làm theo hướng dẫn mình sửa được rồi Cảm ơn ndu nhiều nha
mình là thành viên chính thức đã có 2 sao chắc nhờ lâu năm chứ chẳng đóng góp được gì ngại quá ..không biết bao giờ mình được gắn kim cương