Copy sheet này qua Sheet khác

[tranphuson]

Mình có 1 file cần hỗ trợ bằng VBA - Copy từ Sheet "T" qua Sheet "Orders" theo như mô tả bên dưới

Cảm ơn

 

[be_09]

Mình có 1 file cần hỗ trợ bằng VBA - Copy từ Sheet "T" qua Sheet "Orders" theo như mô tả bên dưới

Cảm ơn

View attachment 266466

1/ Cột E (CustomerType) lấy ở đâu mang sang?
2/ Copy đè lên cái cũ hay copy nối tiếp xuống dưới.
3/ Nhờ người giúp thì nên giải thích rõ ràng.

 

[SA_DQ]

Sub CopyTheoCotKhongThuTu()
 Dim Rws As Long
 
 Sheets("Orders").Select
 With Sheets("T")
    Rws = .[B2].CurrentRegion.Rows.Count
    .[f2:H2].Resize(Rws).Copy Destination:=[K11]
    .[A2].Resize(Rws).Copy Destination:=[A11]
    [C11].Resize(Rws - 1).Value = "Ngu Vùa Thôi!"
    [d11].Resize(Rws - 1).Value = Date
    [E11].Resize(Rws - 1).Value = "B ???"
    .[e2].Resize(Rws).Copy Destination:=[G11]
    .[J2].Resize(Rws).Copy Destination:=[i11]
    .[I2].Resize(Rws).Copy Destination:=[N11]
    .[c2].Resize(Rws).Copy Destination:=[t11]
    .[d2].Resize(Rws).Copy Destination:=[v11]
 End With
End Sub

Những gì còn lại bạn tự sửa đi nha!

 

[tranphuson]

Sub CopyTheoCotKhongThuTu()
 Dim Rws As Long
 
 Sheets("Orders").Select
 With Sheets("T")
    Rws = .[B2].CurrentRegion.Rows.Count
    .[f2:H2].Resize(Rws).Copy Destination:=[K11]
    .[A2].Resize(Rws).Copy Destination:=[A11]
    [C11].Resize(Rws - 1).Value = "Ngu Vùa Thôi!"
    [d11].Resize(Rws - 1).Value = Date
    [E11].Resize(Rws - 1).Value = "B ???"
    .[e2].Resize(Rws).Copy Destination:=[G11]
    .[J2].Resize(Rws).Copy Destination:=[i11]
    .[I2].Resize(Rws).Copy Destination:=[N11]
    .[c2].Resize(Rws).Copy Destination:=[t11]
    .[d2].Resize(Rws).Copy Destination:=[v11]
 End With
End Sub

Những gì còn lại bạn tự sửa đi nha!

Mình đã làm xong như đoạn VBA này, cảm ơn bạn đã hỗ trợ