Mọi người làm giúp em phần tổng hợp và tự cập nhật từ các sheet về một sheet (1 người xem)

[tamhoncuada10313]

Em muốn từ 2 sheet HC và KT sẽ tổng hợp vào thành sheet DMTH và nếu như 2 sheet HC và KT kia có update thêm số liệu thì tự nó sẽ thêm vào sheet DMTH.
- Em muốn khi nhập mã vào thì sẽ kiểm tra mã mới nhập đã tồn tại ở 2 sheet chưa?
Các bác chỉ giùm em với

 

[SA_DQ]

Hãy xài thử macro sự kiện sau

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [C3].Resize(999)) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   
   Set Sh = Sheets("DMTH")
   Set Rng = Sh.Range(Sh.[b2], Sh.[B65500].End(xlUp))
   Set sRng = Rng.Find(Target.Offset(, -1).Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      With Sh.[B65500].End(xlUp).Offset(1)
         .Resize(, 2).Value = Target.Offset(, -1).Resize(, 2).Value
         .Offset(, 2).Value = [a1].Value
      End With
   Else
      MsgBox "Da Có Thiet Bi Này!", , "GPE.COM Xin Chào Ban!"
   End If
 End If
End Sub

 

[tamhoncuada10313]

Bác ơi! không hiểu sao khi em thêm dữ liệu thì nó không thêm vô được

 

[huuthang_bd]

Em muốn từ 2 sheet HC và KT sẽ tổng hợp vào thành sheet DMTH và nếu như 2 sheet HC và KT kia có update thêm số liệu thì tự nó sẽ thêm vào sheet DMTH.
- Em muốn khi nhập mã vào thì sẽ kiểm tra mã mới nhập đã tồn tại ở 2 sheet chưa?
Các bác chỉ giùm em với

Nếu dữ liệu ít thì dùng công thức cũng được.

 

[vanhesing]

em cũng có vấn đề y như anh . có điều em muốn update từ 1 sheet nhật ký thì sheet DMS và sheet GRG sẽ tự cập nhật và thực hiện phép tính để ra số lựong tồn trong ngày .
anh chị fíup em với 2 ngày nữa e phải làm bài báo cáo rồi