Công thức so sánh kho trong 1 năm (1 người xem)

[ngocdiem1511]

Hi Anh chi!

em có 1 file kho em nhờ anh chi chỉ giúp em làm sao có thể nhập vào được báo cáo và sắp xếp theo kho. vì phần mềm không sắp xếp được và không sắp xếp theo kho được . mà mỗi tháng kho phần mềm cập nhập thêm mặt hàng mới. giúp em với.

cám ơn anh chị nhiều.View attachment Report year 2.xlsx

 

[thnghiachau]

không thấy gì để làm....

 

[ngocdiem1511]

Da em gửi rồi đó . giúp dùm em .cảm ơn nhiều.

 

[thnghiachau]

Hi Anh chi!

em có 1 file kho em nhờ anh chi chỉ giúp em làm sao có thể nhập vào được báo cáo và sắp xếp theo kho. vì phần mềm không sắp xếp được và không sắp xếp theo kho được . mà mỗi tháng kho phần mềm cập nhập thêm mặt hàng mới. giúp em với.

cám ơn anh chị nhiều.View attachment 125625

Theo file của bạn thì "CODE" "STOCK CODE" trong Sheet"Name" với "Code" Item Code" trong Sheet"Report" và "Mã Hàng Code" trong Sheet"Jan" có liên quan như thế nào????

 

[ngocdiem1511]

Hi thnghiachau !
Trong file của mình là mình muốn code trong sheet name có liên quan với item code trong sheet Jan, thí dụ 99210001 nó là code của 992 là cleaning supplier. Mình muốn sếp nó theo của cleaning supplier.còn item code trong sheet report là mã hàng code của Jan; code của report là code của name.

 

[nginh]

Hi thnghiachau !
Trong file của mình là mình muốn code trong sheet name có liên quan với item code trong sheet Jan, thí dụ 99210001 nó là code của 992 là cleaning supplier. Mình muốn sếp nó theo của cleaning supplier.còn item code trong sheet report là mã hàng code của Jan; code của report là code của name.

test code sau

Sub report()
Dim a(), n(), code()
h = Rows.Count
code = Sheets("Name").[A5:A23].Value
For u = 1 To UBound(code)
code(u, 1) = code(u, 1) & "*"
Next
With Sheets("Report")
Set Mon = .Rows(4)
For Each sh In Worksheets
Set c = Mon.Find(sh.Name, lookat:=xlWhole)
If Not c Is Nothing Then
    j = c.Column
    ReDim Preserve a(1 To h, 1 To j + 1)
    Set s = sh.UsedRange.Columns(4).Resize(, 6)
    For Each r In s.Rows
        If r.Cells(1) <> "" Then
            n = Application.CountIf(r.Cells(1), code)
            If Application.Sum(n) Then
            i = i + 1
            For Each e In code
            If r.Cells(1) Like e & "*" Then a(i, 1) = Replace(e, "*", ""): Exit For
            Next
            For k = 2 To 4
            a(i, k) = r.Cells(1, k - 1)
            Next
            a(i, j + 1) = r.Cells(1, k)
            a(i, j) = r.Cells(1, k + 2)
            End If
        End If
    Next
End If
Next
.Range(.[A6], .[A6].SpecialCells(xlLastCell)).ClearContents
.[A6].Resize(i, j + 1).Value = a
End With
End Sub

 

[thnghiachau]

Hi Anh chi!

em có 1 file kho em nhờ anh chi chỉ giúp em làm sao có thể nhập vào được báo cáo và sắp xếp theo kho. vì phần mềm không sắp xếp được và không sắp xếp theo kho được . mà mỗi tháng kho phần mềm cập nhập thêm mặt hàng mới. giúp em với.

cám ơn anh chị nhiều.View attachment 125625

Ban thử cái này nha...

 

[thnghiachau]

Mình Đã làm lại cho có tốc độ nhanh hơn và thêm cho dủ 12 tháng trong năm,
Bạn xem qua có phải đúng ý chưa nha.
chú ý cấu trúc dữ liệu mình làm theo Sheet"Jan" nên các sheet của các tháng khác cung phải giống vậy,
nếu không là Macro minh sẽ không còn đúng nữa.
Good Luck.

 

[ngocdiem1511]

Hi nginh!
Có thể chỉ mình được không vì có code nhưng mình không biết cách làm file.
cám ơn bạn nhiều.
chúc bạn 1 tuần vui vẻ và may mắn.

 

[nginh]

Hi nginh!
Có thể chỉ mình được không vì có code nhưng mình không biết cách làm file.
cám ơn bạn nhiều.
chúc bạn 1 tuần vui vẻ và may mắn.

bạn xem file dính kèm