Code copy sang cột kế tiếp mỗi khi dữ liệu nhập vào có thay đổi

Chia sẻ bởi:hands

★★★★★

‹ LỌC DỮ LIỆU TỪ NHIỀU SHEET VÀ... Chia hàng vào ô thỏa mản 2... ›

Quảng cáo

Mình có file này, ở cột G3:G6 là nó tự động tổng điểm theo tổ (N1, N2, N3, N4) khi các tổ đánh giá chéo nhau trong vùng dữ liệu C3:G16
Cột L3:L47 sẽ có 1 macro gán điểm cho mỗi em hs ở tổ tương ứng đã được gán ở cột K.
Mình đang loay hoay với một code copy cột L để dán qua cột kế tiếp bên phải cột L và cứ thế copy tiếp tục qua cột kế bên M,… next nhưng khi mình bấm vào macro ở cột L thì lệnh copy này mới thực hiện,
Mong các anh chị giúp đỡ. xin cảm ơn

Tìm cột cuối rồi copy paste thôi

Sub laydiemtheonhom()

' 'lay diem theo nhom cho tung ca nhan
Lastcol = [AZ3].End(xlToLeft).Column
    With [L3:L47]
   .FormulaR1C1 = _
        "=IF(RC11<>"""",INDEX(OFFSET(R3C2:R6C2,,5),MATCH(RC11,R3C2:R6C2,0)),"""")"
    .Value = .Value
   .Copy Cells(3, Lastcol + 1)
    End With
End Sub

www.giaiphapexcel.com/diendan/threads/code-copy-sang-c%E1%BB%99t-k%E1%BA%BF-ti%E1%BA%BFp-m%E1%BB%97i-khi-d%E1%BB%AF-li%E1%BB%87u-nh%E1%BA%ADp-v%C3%A0o-c%C3%B3-thay-%C4%91%E1%BB%95i.163365/post-1089728