Code tự động cập nhật giá (1 người xem)

[Excel365]

Nhờ các anh chị giúp em viết code để
1- tự động cập nhật đơn giá khi nhập tên công đoạn thì sẽ tự điền giá.
2- Khi thay đổi giá thì cũng sẽ cập nhật giá mới lên các sheet chi tiết.
3. Khi xóa tên công đọạn ở sheet chi tiết thì đơn giá bên dưới cũng xóa theo.
Trân trọng cảm ơn

https://drive.google.com/file/d/0Bz23-2tBuYb1T1J3VndnTkpzWFk/view?usp=sharing

 

[SA_DQ]

Nhờ các anh chị giúp em viết code để

2- Khi thay đổi giá thì cũng sẽ cập nhật giá mới lên các sheet chi tiết.

Bạn thử chạy macro sự kiện này tại trang 'giá':

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Columns("D:D")) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    For Each Sh In ThisWorkbook.Worksheets
        If IsNumeric(Sh.Name) Then
            Set Rng = Sh.[D1].Resize(, 250)
            Set sRng = Rng.Find(Target.Offset(, -1).Value, , xlFormulas, xlWhole)
            If Not sRng Is Nothing Then
                sRng.Offset(1).Value = Target.Value
            End If
        End If
    Next Sh
 End If
End Sub

 

[Excel365]

Bạn thử chạy macro sự kiện này tại trang 'giá':

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Columns("D:D")) Is Nothing Then
    Dim Sh As Worksheet, Rng As Range, sRng As Range
    
    For Each Sh In ThisWorkbook.Worksheets
        If IsNumeric(Sh.Name) Then
            Set Rng = Sh.[D1].Resize(, 250)
            Set sRng = Rng.Find(Target.Offset(, -1).Value, , xlFormulas, xlWhole)
            If Not sRng Is Nothing Then
                sRng.Offset(1).Value = Target.Value
            End If
        End If
    Next Sh
 End If
End Sub

Cho mình hỏi, khi mình thay đổi giá bên sheet đơn giá nhưng các sheet chi tiết vẫn không thay đổi, bạn xem lại dùm mình nhé
P/s: Có lúc thì nó cập nhật, lúc thì không. Mình không biết nó bị gì nữa