Tính dùm mình nvl cho mỗi sản phẩm

[langtubinhdinh]

mình làm ở cty sx tập vở, tính nguyên vật liệu nhiều và rắc rối quá, mình tóm tắt file excel đính kèm mong mọi người giúp đỡ, ai làm kế toán cho cty sx tập vở cho mình trao đổi học hỏi về tính giá thành với, làm cách nào mà mình chỉ cần thay đổi số lượng sp sx là ra, còn giá xuất ng vật liệu nữa chứ , nhưng cái này mình tự tính được, thank mọi người nhiều nha

 

[HongViet]

Có gì mà " rắc rối quá"; Xem file thêm nha

Option Explicit
Sub ToTal()
 Dim Sh As Worksheet, Cls As Range, Rng As Range, sRng As Range
 Dim CotBD As Byte, eRw As Long
 Dim VL As String
 
 Sheets("ToTal").Select:            Set Sh = Sheets("NVL")
 [B1].CurrentRegion.Offset(1, 2).ClearContents
 eRw = Sh.Cells.Find(What:="*", After:=Sh.[A1], SearchOrder:=xlByRows, _
   SearchDirection:=xlPrevious).Row
 For Each Cls In Range([A2], [A65500].End(xlUp))
   VL = Cls.Offset(, 1).Value
   CotBD = Switch(VL = "A", 1, VL = "B", 27, VL = "C", 53, VL = "D", 79)
   Set Rng = Sh.Cells(1, CotBD).Resize(eRw)
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Cls.Offset(, 2).Value = sRng.Offset(, 1).Value
      Cls.Offset(, 3).Resize(, 2).Value = sRng.Offset(, 3).Resize(, 2).Value
   End If
 Next Cls
End Sub

 

[285918]

xem qua bài Kế hoạch sản xuất và xuất kho nguyên vật liệu của mình nhé. Mình đã đăng bài này rùi. Dễ làm và rất hay

 

[langtubinhdinh]

thanks về file NVL của 285918 nhiều, nhưng doanh nghiệp của mình sx khoảng 150 thành phẩm và có hơn 300 ng liệu, mỗi tp sử dụng khoảng 6 nvl nên khó tính theo cách của bạn, với lại để giảm lợi nhuận nên DN mình tính ngược từ giá bán trở lại, sử dụng những vl có định lượng gần giống mà giá cao để phân bổ cho sản phẩm đó, bạn có ý gì dể tạo 1 file excel cho DN mình ko góp ý giúp mình nha, thanks