Hỏi code tự động liên kết số thứ tự các sheet (1 người xem)

[khoa289]

Chào mọi người
Tôi cần giúp về viết code tự động liên kết số thứ tự các sheet như sau:
Khi tạo số thứ tự ở sheet "Du lieu ban dau" thì 2 sheet còn lại "1.Nghiem thu" và "2.Thanh toan" tự động cập nhật liên kết số thứ tự (Chỉ 2 sheet này thôi) với sheet "Du lieu ban dau"
Ví dụ:
Sheet "Du lieu ban dau" có số thứ tự là 3 thì 2 sheet còn lại "1.Nghiem thu" và "2.Thanh toan" tự động cập nhật liên kết số thứ tự là 3
Đính kèm file.
Cám ơn.

 

[Hoang2013]

Bạn chép macro sự kiện này vô trang tính 'DuLieu':

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A4:A99")) Then
    Dim Sh As Worksheet, sRng As Range, Rng As Range
    Dim ShName As String
   
    Randomize
    For Each Sh In ThisWorkbook.Worksheets
        If Left(Sh.Name, 2) = "1." Or Left(Sh.Name, 2) = "2." Then
            Set Rng = Sh.Columns("B:B")
            Set sRng = Rng.Find(Target.Offset(, 1).Value, , xlFormulas, xlWhole)
            If Not sRng Is Nothing Then
                If sRng.Offset(, 1).Value = Target.Offset(, 2).Value And _
                    sRng.Offset(, 2).Value = Target.Offset(, 3).Value Then
                    sRng.Offset(, -1).Value = Target.Value
                    Target.Interior.ColorIndex = 34 + 9 * Rnd() \ 1
                End If
            Else
                MsgBox "Nothing in " & Sh.Name, , Target.Offset(, 1).Value & ":"
            End If
        Else
        End If
    Next Sh
 End If
End Sub

Những mong là khỏi gởi file lên!

 

[khoa289]

Cảm ơn bạn nhiều.
Mình đã làm nhưng không chạy được bạn à. Bạn xem giúp file

 

[Hoang2013]

Bạn thử nhập con số "5" vô ô [A5] xem sao?
Sau đó nhập con '13' vô [A8] để chiêm nghiệm qua thực tế;

Còn nếu vẫn không được thì mua đầu heo về cúng cho ông virus nào đó đi là vừa!

 

[khoa289]

Cảm ơn bạn đã giúp đỡ nhưng mình làm máy tính khác vẫn không được.
Help me.