tạo cơ sở dữ liệu

[Rùa Con 1080]

Em có File này, mong các AC xem giúp em, dữ liệu của em rất nhiều(vì nhãn may mặc có nhiều loại nhãn hiệu, trong một loại nhãn hiệu có nhiều loại nhãn) Em bố trí theo cột, mong các AC nào có thể bố trí lại cơ sở dữ liệu cho gọn vừa thống kê được đơn hàng nào sử dụng những loại nhãn nào và biết được số lượng tồn của từng loại. Mong nhận được chỉ giáo của các AC!!!!!

 

[Rùa Con 1080]

Em xin đưa file lại mong mọi người giúp em theo như file đính kèm(có chú thích ở file). Em đã bố trí dữ liệu lại cho hợp lý, mong MN giúp em!!!!

 

[SA_DQ]

Bạn xem trong file

 

[Rùa Con 1080]

Thầy SA_DQ ơi, cell C2 của Sheet"ThongKe" chưa đúng Thầy Ơi!!!. Cell này sẽ thay đổi theo "Goods name" của A2. ví dụ như AD-ML-04 có Stock 2015 là 3357, AD-ML-05 có Stock 2015 là 22. Mong Thầy giúp em với. Em Cám ơn Thầy đã giúp em.

 

[Rùa Con 1080]

Ah cell C2 em dùng hàm Vlookup được rồi Thầy ơi, Thầy có thể làm cho cell B2:G2 của sheet "ThongKe" không hiện hàm nữa được không Thầy.

 

[SA_DQ]

Bạn lấy macro sự kiện mới này chép đè lên toàn bộ cái macro cũ là được:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A2]) Is Nothing Then
    Dim Dg As Long, Hg As Long
2   Dim Sh As Worksheet, WF As Object, Rng As Range    '*'
    
    Rows("6:500").Hidden = False
    Sheets("Nhap").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("B5:D5"), Unique:=False
    Dg = [D500].End(xlUp).Row
    Sheets("Xuat").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("F5:H5"), Unique:=False
    Hg = [h500].End(xlUp).Row
    If Dg > Hg Then Hg = Dg Else Dg = Hg
    Dg = Hg + 1
    Rows("500:" & Dg).Hidden = True
9    Set Sh = ThisWorkbook.Worksheets("DanhMuc")
    Set Rng = Sh.[b2].CurrentRegion
    Set WF = Application.WorksheetFunction
    [b2].Value = WF.VLookup(Target.Value, Rng, 2, False)
    [c2].Value = WF.VLookup(Target.Value, Rng, 3, False)
    [d2].Value = WF.Sum([d6].Resize(500))
    [e2].Value = WF.Sum([H6].Resize(500))
    [f2].Value = [e2].Value * IIf([b2].Value = "Mts", 1.2, 1.02)
17  [G2].Value = [c2].Value + [d2].Value - [f2].Value
 End If
End Sub

Chúc thành công

 

[Rùa Con 1080]

Cám Ơn Bạn HYen17, đúng ý mình rồi. Chúc bạn Khỏe-Hạnh Phúc.