Copy dữ liệu qua sheet mới có điều kiện

[babygirl_8990]

Chào mọi người, em có 1 file mẫu, mọi người giúp em viết code copy cột từ sheet này qua sheet data. Mỗi lần ấn nhút copy thì sẽ copy và past dữ liệu lần lượt cột kế tiếp giúp em ạ, vì mỗi lần nhập dữ liệu thì sheet sẽ thay đổi, em có gửi file mọi người xem giúp em.

em cảm ơn nhiều

 

[phulien1902]

Chào mọi người, em có 1 file mẫu, mọi người giúp em viết code copy cột từ sheet này qua sheet data. Mỗi lần ấn nhút copy thì sẽ copy và past dữ liệu lần lượt cột kế tiếp giúp em ạ, vì mỗi lần nhập dữ liệu thì sheet sẽ thay đổi, em có gửi file mọi người xem giúp em.

em cảm ơn nhiều

Bạn thử:

Sub Test()
    Dim LC As Integer
    With Sheets("DATA")
        LC = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
        Sheets("TC").Range("K8:K23").Copy
        .Cells(4, LC).PasteSpecial Paste:=xlValues
    End With
End Sub

 

[babygirl_8990]

Bạn thử:

Sub Test()
    Dim LC As Integer
    With Sheets("DATA")
        LC = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
        Sheets("TC").Range("K8:K23").Copy
        .Cells(4, LC).PasteSpecial Paste:=xlValues
    End With
End Sub

Cảm ơn anh , code chạy ổn ạ,nhưng chổ ngày tháng khi copy thì không d=còn định dạng được ạ, không biết có cách nào chỉ em vơi ạ

 

[phulien1902]

Cảm ơn anh , code chạy ổn ạ,nhưng chổ ngày tháng khi copy thì không d=còn định dạng được ạ, không biết có cách nào chỉ em vơi ạ

Bạn thêm dòng dưới đây vào Code nhé:

 .Cells(4, LC).NumberFormat = "m/d/yyyy"

 

[♫ђöล♥ßล†♥†µ♫]

Bê nguyên sang đây ạ

Sub Test()
    Dim LC As Integer
With Sheets("DATA")
    LC = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
    Sheets("TC").Range("K8:K23").Copy
    With .Cells(4, LC)
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteFormats
        .PasteSpecial Paste:=xlValues
    End With
End With
End Sub

 

[phulien1902]

Bê nguyên sang đây ạ

Sub Test()
    Dim LC As Integer
With Sheets("DATA")
    LC = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
    Sheets("TC").Range("K8:K23").Copy
    With .Cells(4, LC)
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteFormats
        .PasteSpecial Paste:=xlValues
    End With
End With
End Sub

Lâu lắm rồi mới gặp người đẹp!