Tự cập nhật giá vào kho hàng khi viết phiếu nhập hàng

[anhlong]

Mình cần (công thức hay hàm... ) Miễn khi thay đổi giá sản phẩm nào bên sheet MUA (xuất) thì bên sheet KHO (tồn) giá sản phẩm đó cũng tự động thay đổi theo.

Mình ghi yêu cầu rất cụ thể trong file gởi kèm. Mong các bạn giúp sớm. hoặc cho link mình tìm hiểu, Mình tìm hoài chưa ra.

 

[yome]

Giờ bạn tạo thêm 1 Sheet DMHH nữa. Sheet này bạn nhập Tên hàng và giá của hàng đó và khi đó mình xử lý dễ hơn đó.

 

[anhlong]

Cảm ơn bạn.

Mình không thể dùng cột A "Mã hàng hóa" ở sheet KHO luôn sao bạn ?

Hay mình gửi DMHH+$ như này bạn xem có được chưa. Giúp mình nhé.

 

[anhlong]

Các bạn giúp mình với.

 

[ChanhTQ@]

Bạn xài macro sự kiện sau cho cả hai trường hợp

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Sh As Worksheet, Rng As Range, sRng As Range

 Set Sh = Sheets("KHO")
 Set Rng = Sh.Range(Sh.[a3], Sh.[A65500].End(xlUp))
 If Not Intersect(Target, Columns("D:D")) Is Nothing Then
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      MsgBox "Ban Xem Lai, Chua Có Mat Hàng Này"
   Else
      Target.Offset(, 1).Value = sRng.Offset(, 2).Value
   End If
 ElseIf Not Intersect(Target, Columns("E:E")) Is Nothing Then
   Set sRng = Rng.Find(Target.Offset(, -1).Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      sRng.Offset(, 2).Value = Target.Value
9      sRng.Offset(, 3).Value = Date   '<=| Ngày Doi Giá?'
   End If
 End If
End Sub

(*) Mình cập nhật luôn ngày đổi đơn giá trong macro rồi; Nếu bạn thấy không fải thì vô hiệu hóa dòng lệnh mang số 9 giúp nha

 

[anhlong]

Nhờ Bạn chèn dùm CODE đó vào cái file QuanLyBanHang2010 (đính kèm trên đầu) ,mình chưa bít phải để nó ở đâu và ra làm sao nữa

 

[anhlong]

cái bạn mctydieu làm đc r thì chỉ mình với