Nhờ mọi người giúp viết code VBA để tách và copy dữ liệu

[HUNGNGUYENCONG]

Trong fie đính kèm có 2 sheet Báo cáo và Nhập tháng 10. Nhờ A/C viết code VBA Trong sheet Nhập tháng 10, tìm những mã hàng trong sheet Nhập tháng 10 không trùng với mã hàng trong sheet Báo cáo thì lấy và copy vào ô kế tiếp cột mã hàng sheet Báo cáo.Em cảm ơn ạ.

 

[1convit789]

Trong fie đính kèm có 2 sheet Báo cáo và Nhập tháng 10. Nhờ A/C viết code VBA Trong sheet Nhập tháng 10, tìm những mã hàng trong sheet Nhập tháng 10 không trùng với mã hàng trong sheet Báo cáo thì lấy và copy vào ô kế tiếp cột mã hàng sheet Báo cáo.Em cảm ơn ạ.

bạn có thể ..ví dụ kết quả mà bạn muốn ko?

 

[phulien1902]

Trong fie đính kèm có 2 sheet Báo cáo và Nhập tháng 10. Nhờ A/C viết code VBA Trong sheet Nhập tháng 10, tìm những mã hàng trong sheet Nhập tháng 10 không trùng với mã hàng trong sheet Báo cáo thì lấy và copy vào ô kế tiếp cột mã hàng sheet Báo cáo.Em cảm ơn ạ.

Bạn thử:

Sub Test()
    Dim LR As Long
    Application.ScreenUpdating = False
    LR = Sheets("Nhapthang10").Cells(Rows.Count, 1).End(3).Row
    Range("D2:D" & LR).Formula = "=IF(COUNTIF(baocao!$A$2:$A$4018,Nhapthang10!A3),""1"",""0"")"
    With Range("A1:D" & LR)
        .AutoFilter 4, "0"
        .Offset(1).SpecialCells(12).Copy Sheets("baocao").Range("A" & Rows.Count).End(3).Offset(1)
        .AutoFilter
    End With
    Sheets("baocao").Columns(4).ClearContents
    Sheets("Nhapthang10").Columns(4).ClearContents
    Application.ScreenUpdating = False
End Sub

 

[HUNGNGUYENCONG]

bạn có thể ..ví dụ kết quả mà bạn muốn ko?

Mình gửi bạn file ví dụ

Bài đã được tự động gộp: 13/11/19

Bạn thử:

Sub Test()
    Dim LR As Long
    Application.ScreenUpdating = False
    LR = Sheets("Nhapthang10").Cells(Rows.Count, 1).End(3).Row
    Range("D2:D" & LR).Formula = "=IF(COUNTIF(baocao!$A$2:$A$4018,Nhapthang10!A3),""1"",""0"")"
    With Range("A1:D" & LR)
        .AutoFilter 4, "0"
        .Offset(1).SpecialCells(12).Copy Sheets("baocao").Range("A" & Rows.Count).End(3).Offset(1)
        .AutoFilter
    End With
    Sheets("baocao").Columns(4).ClearContents
    Sheets("Nhapthang10").Columns(4).ClearContents
    Application.ScreenUpdating = False
End Sub

Mình gửi bạn file Ví dụ mình làm bằng hàm Vlookup nhé.
Đoạn code bạn gửi mình còn nhiều mã trùng lắm.

 

[HUNGNGUYENCONG]

bạn có thể ..ví dụ kết quả mà bạn muốn ko?

Mình gửi bạn File ví dụ

 

[Ba Tê]

Mình gửi bạn file Ví dụ mình làm bằng hàm Vlookup nhé.
Đoạn code bạn gửi mình còn nhiều mã trùng lắm.

Gởi bạn 1 file, 1 cách dùng công thức và cột phụ, 1 cách dùng VBA.

 

[HUNGNGUYENCONG]

Gởi bạn 1 file, 1 cách dùng công thức và cột phụ, 1 cách dùng VBA.

Cảm ơn bạn.
Cảm ơn mọi người đã giúp đỡ ạ.
kết quả sau ở cột G và cột H bạn có thể giúp mình viết code dán vào hàng cuối cùng ở cột A và B mà không cần hiển thị ở cột G và H được không ạ.

 

[Ba Tê]

Cảm ơn bạn.
Cảm ơn mọi người đã giúp đỡ ạ.
kết quả sau ở cột G và cột H bạn có thể giúp mình viết code dán vào hàng cuối cùng ở cột A và B mà không cần hiển thị ở cột G và H được không ạ.

Cũng được, nhưng làm sao biết từ đâu là mới, từ đâu là cũ?

 

[HUNGNGUYENCONG]

Cũng được, nhưng làm sao biết từ đâu là mới, từ đâu là cũ?

CODE CHẠY ĐƯỢC RỒI BẠN.MÌNH CẢM ƠN Ạ.