Lọc những sản phẩm thiếu từ những cửa hàng về 1 cửa hàng tổng (2 người xem)

[vukody]

Tình hình là công ty em phát những nguyen phụ liệu nhung do quá nhiều mặt hàng không thể biết thiếu đủ. Nay em muon lọc những sản phẩm thiếu của nhiều cửa hàng sang 1 cửa hàng tổng các anh chị chỉ em giúp. Có gì em xin hậu tạ

 

[concogia]

Tình hình là công ty em phát những nguyen phụ liệu nhung do quá nhiều mặt hàng không thể biết thiếu đủ. Nay em muon lọc những sản phẩm thiếu của nhiều cửa hàng sang 1 cửa hàng tổng các anh chị chỉ em giúp. Có gì em xin hậu tạ

Tình hình là lâu quá hông làm bài dạng này, ôn lại .......hông thôi quên ráo trọi Bạn cứ chọn sheet "Cua Hang Tong" xem kết quả
Híc

 

[GiangQuynh1990]

Sorry Gà ngố (vukody) nhé, tớ giờ mới online được. Nếu Gà Ngố chỉ copy dữ liệu đơn giản như những gì bạn đã hỏi thì chỉ cần xài CODE này thôi, CODE của Concogia hay thiệt nhưng với bạn chắc khó hiểu, gà ngố bấm Ctrl+j để chạy code nhé!

Sub copyDL()
Dim i As Long
With Sheets("Cua hang tong")
    If .[A1].Value <> "" Then
    Exit Sub
    Else
        .[A1].Value = "TONG HOP"
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> "Cua hang tong" Then
                Sheets(i).[A4].CurrentRegion.Copy .[A65536].End(xlUp).Offset(1)
            End If
        Next
    End If
End With
End Sub