Copy nhiều sheet vào 1 sheet với điều kiện > 0 (2 người xem)

[kydang1989]

Xin chào các a/ce GPE
mình muốn copy 5 sheet vào 1 sheet tổng với điều kiện Số lượng >0
ví dụ mình làm thủ công thì làm như sau:
Filter cột số lượng, chọn >0. Sau đó copy cột Item tương ứng + số lượng >0 bỏ vào sheet tổng (IKKI CHI TIET)
2 cột mình tô cùng màu sẽ tương ứng với nhau
copy xong sheet này sẽ copy tiếp sheet khác
(chi tiết ghi rõ trong file đính kèm)
mong các a/ce GPE giúp đỡ.

http://www.mediafire.com/download/5gyo7ashi76uvbp/DU+LIEU+TON+KHO.rar

 

[Quang_Hải]

Xin chào các a/ce GPE
mình muốn copy 5 sheet vào 1 sheet tổng với điều kiện Số lượng >0
ví dụ mình làm thủ công thì làm như sau:
Filter cột số lượng, chọn >0. Sau đó copy cột Item tương ứng + số lượng >0 bỏ vào sheet tổng (IKKI CHI TIET)
2 cột mình tô cùng màu sẽ tương ứng với nhau
copy xong sheet này sẽ copy tiếp sheet khác
(chi tiết ghi rõ trong file đính kèm)
mong các a/ce GPE giúp đỡ.

http://www.mediafire.com/download/5gyo7ashi76uvbp/DU+LIEU+TON+KHO.rar

Sao không đưa file lên tại đây, chỉ cần dữ liệu tạm thôi và 2 sheets là đủ cơ sở để code. Chỗ khác mình cốc có thèm tải file

 

[kydang1989]

Sao không đưa file lên tại đây, chỉ cần dữ liệu tạm thôi và 2 sheets là đủ cơ sở để code. Chỗ khác mình cốc có thèm tải file

mình tải lên rồi, mình xóa bớt 3 sheet
bạn vào xem lại
5 sheet con chia làm 2 loại: 1 loại cột số lượng bắt đầu bằng cột M, Item tương ứng là cột F
1 loại cột số lượng bắt đầu bằng cột N, Item tương ứng là cột G

 

[Quang_Hải]

mình tải lên rồi, mình xóa bớt 3 sheet
bạn vào xem lại
5 sheet con chia làm 2 loại: 1 loại cột số lượng bắt đầu bằng cột M, Item tương ứng là cột F
1 loại cột số lượng bắt đầu bằng cột N, Item tương ứng là cột G

Mới xem file và thấy có vấn đề. 1 sheet kết thúc bằng cột R, sheet kia thì kết thúc bằng cột Q. Nếu cố viết cũng không khó nhưng cảm thấy kỳ cục.

 

[kydang1989]

Mới xem file và thấy có vấn đề. 1 sheet kết thúc bằng cột R, sheet kia thì kết thúc bằng cột Q. Nếu cố viết cũng không khó nhưng cảm thấy kỳ cục.

vì người cung cấp dữ liệu, tùy theo LINE hay BONDER LINE sẽ có các cột không cần thiết khác nhau
nếu viết 1 loại cũng được, mình sẽ nói người cung cấp dữ liệu đồng nhất dữ liệu

 

[Quang_Hải]

vì người cung cấp dữ liệu, tùy theo LINE hay BONDER LINE sẽ có các cột không cần thiết khác nhau
nếu viết 1 loại cũng được, mình sẽ nói người cung cấp dữ liệu đồng nhất dữ liệu

Chèn thêm 1 cột vào sheet Line sao cho dữ liệu luôn bắt đầu từ cột G và kết thúc tại R

Sub tonghop()
Dim sh As Worksheet, data(), i&
Dim kq(1 To 65536, 1 To 3), j&, k&
For Each sh In Worksheets
   If sh.CodeName <> "sheet1" Then
      data = sh.Range("G6", sh.[R65536].End(3)).Value
      For j = 1 To 5
         For i = 1 To UBound(data)
            If data(i, j) <> "" Then
               If data(i, j + 7) > 0 Then
                  k = k + 1
                  kq(k, 1) = data(i, j)
                  kq(k, 2) = data(i, j + 7)
                  kq(k, 3) = sh.Name
               End If
            End If
         Next
      Next
   End If
Next
Sheet1.[E2].Resize(k, 3) = kq
End Sub