Copy vùng có điều kiện (1 người xem)

[0167767]

Copy sheet này sang sheet khác, tuy nhiên phải căn cứ vào I3. Các bạn xem file giúp dùm mình nhé.

 

[0167767]

Tôi không hiểu mục đích của bạn làm gì. Nhưng nếu bạn muốn có code thì bạn phải thực hiện đặt Name cho vùng cần copy của bạn tương ứng theo tên sau
(Mục đích đặt tên là muốn bạn tự xác định vùng cần copy ...chứ người code không rảnh để ngồi chọn từng vùng mà code cho bạn)
Vung1, Vung2, Vung3,...,Vung23. Cứ chọn theo vùng bạn đã Light màu mà đặt Name thôi...
Và paste code sau vào Sheet PASTE
Rồi tại I3 gõ số đầu tiên bắt đầu phải là 3, thay đổi từ 3 -> 25 thì nó copy thôi...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
    If [A65000].End(3).Row = 1 Then
        Sheet4.Range("Vung" & [I3].Value - 2).Copy [A6]
    Else
        Sheet4.Range("Vung" & [I3].Value - 2).Copy [A65000].End(3).Offset(1)
    End If
End If
End Sub

Cảm ơn bạn. Code đúng rồi, nhưng mình muốn xóa vùng mình đã paste trước đó. vì code không xóa vùng cũ mà nó lại tiếp tục paste tiếp vùng mới.
VD: Mình nhập 4 thì nó paste vùng 4. Tôi lại nhập tiếp là 3 thì nó không xóa cái vùng 4, mà nó paste vùng 3 vào và không xóa được vùng cũ trước đó là vùng 4