Giúp tôi code điền số thứ tự tự động (2 người xem)

[hoang0569]

Anh chị Giúp tôi code điền số thứ tự tự động, tôi gửi File kèm mong anh chị giúp, cảm ơn nhiều.

 

[Miccpro]

Dữ liệu của bạn nhiều??? Có gì đâu mà treo dc nhỉ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, dem As Integer
If Target.Column = 2 Or Target.Column = 3 Then
    Range("A7:A1000").ClearContents
    For i = 7 To Range("C6000").End(3).Row
        If Cells(i, 2) = "HM" Then dem = 0
        If Cells(i, 3) <> "" And Cells(i, 2) <> "HM" Then
            dem = dem + 1
            Cells(i, 1) = "'" & Right("00" & dem, 2)
        End If
    Next
End If
End Sub

Làm phiền bác quanluu tý. Với code này giờ em lại muốn gán nút thì sửa thế nào ạ,