Copy&Paste vào ô bất kì (1 người xem)

[toandiennuoc123]

Chào ACE trên diễn đàn. Nhờ ACE giúp đỡ vấn đề này, chúc ACE cuối tuần vui vẻ.

 

[chibi]

Thử cái này nhé

Option ExplicitSub Macro1()
    If Intersect(Selection, [I2:Q2]) Is Nothing Then [I2:Q2].Copy Destination:=Selection
End Sub

 

[toandiennuoc123]

Thử cái này nhé

Option ExplicitSub Macro1()
    If Intersect(Selection, [I2:Q2]) Is Nothing Then [I2:Q2].Copy Destination:=Selection
End Sub

Bạn ơi! hình như không ổn, khi (I2:Q2) là kết quả của 1 công thức thì không paste được ( kq của công thức thì giá trị luôn thay đổi). code này chỉ hoạt động khi có giá trị cố định thì phải ?

 

[chibi]

Nhu cầu của bạn là copy&paste. Đoạn code đó đã hoàn thành sứ mệnh đó. Nếu cần thêm gì thì bạn phải nói rõ.

 

[Quang_Hải]

Bạn ơi! hình như không ổn, khi (I2:Q2) là kết quả của 1 công thức thì không paste được ( kq của công thức thì giá trị luôn thay đổi). code này chỉ hoạt động khi có giá trị cố định thì phải ?

Thử thế này xem coi sao. Double Click tại nơi cần copy đến

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     Range("I2:Q2").Copy 
    ActiveCell.PasteSpecial 3
     Application.CutCopyMode = False
 End Sub

Hoặc là thế này

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)         ActiveCell.Resize(, 9).Value = Range("I2:Q2").Value
 End Sub

 

[toandiennuoc123]

Thử thế này xem coi sao. Double Click tại nơi cần copy đến

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     Range("I2:Q2").Copy 
    ActiveCell.PasteSpecial 3
     Application.CutCopyMode = False
 End Sub

Code này hay quá, chúc cuối tuần vui vẻ nhé