Code của Combobox không cho Paste ở một số vùng!

[dongducnhiem]

Chào các bạn thành viên!

Tôi có lập 01 Combobox bắt đầu từ Cell K9 trở xuống. Tôi copy và Paste thì xảy ra 02 trường hợp:
1/ Nếu Paste bất cứ Cell hay khối từ dòng thứ 8 trở lên thì OK
2/ Nếu Paste bất cứ Cell hay khối từ dòng thứ 9 trở xuống thì không được ???
Tôi nhờ các bạn giải thích giùm và cách khắc phục (xem File đính kèm)
Xin cảm ơn.

 

[phan ngoc lan]

Bạn đang dùng sự kiện Worksheet_SelectionChange nên khi bạn chọn Cell hay khối từ dòng thứ 9 trở xuống thì chế độ Copy đã kết thúc nên không dán được nữa!

 

[dongducnhiem]

Bạn đang dùng sự kiện Worksheet_SelectionChange nên khi bạn chọn Cell hay khối từ dòng thứ 9 trở xuống thì chế độ Copy đã kết thúc nên không dán được nữa!

Có cách nào khắc phục không bạn?

 

[ptm0412]

1. Giới hạn vùng chạy code:
If Not Intersect(Target, Range("Data cột K chứa combo")) Is Nothing Then

2. để tìm lại bài cũ đã

 

[dongducnhiem]

1. Giới hạn vùng chạy code:
If Not Intersect(Target, Range("Data cột K chứa combo")) Is Nothing Then

2. để tìm lại bài cũ đã

Vui lòng cho hỏi:
1/đặt dòng lệnh này ở sau hay trước dòng nào trong đọan code
2/ Trường hợp Combobox nói trên cho ra kết quả của 3 cột là Cột K, L, M. Thì cần dòng lệnh như thế nào?
Cảm ơn anh!

 

[ptm0412]

Code chỉ cần thế này, không cần module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MH As Boolean
MH = Application.EnableEvents
Application.EnableEvents = False
If Not Intersect(Target, Range("K9:K30")) Is Nothing Then
    With S01.CBViDu
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height
        .ListFillRange = "KhachHang"
        .LinkedCell = ActiveCell.Address
        .Activate
    End With
    SendKeys ("%{DOWN}")
Else
    With S01.CBViDu
        If .Visible = True Then .Visible = False
    End With
End If
Application.EnableEvents = MH
End Sub

Copy và paste khắp nơi trừ vùng K9:K30.