CODE VBA in phiếu X-N vật tư tự động thêm bớt dòng

[PigPET]

Chào mọi người,
Em có một file quản lý X-N-T kho, ở sheet "N-X CÔNG TRƯỜNG" em muốn phiếu xuất của em được tự động thêm bớt dòng sao cho vừa số lượng vật tư theo từng công trường khi thay đổi tên ở ô Công trường.
Mong phản hồi từ mọi người.
Em cảm ơn.

 

[huuthang_bd]

Dùng Auto Filter lọc cột K khác rỗng và copy code sau vào sheet N-X CÔNG TRƯỜNG.

Private bRefresh As Boolean
Private Sub Worksheet_Calculate()
If Not bRefresh Then
    bRefresh = True
    Me.AutoFilter.ApplyFilter
    bRefresh = False
End If
End Sub

 

[PigPET]

Dùng Auto Filter lọc cột K khác rỗng và copy code sau vào sheet N-X CÔNG TRƯỜNG.

Private bRefresh As Boolean
Private Sub Worksheet_Calculate()
If Not bRefresh Then
    bRefresh = True
    Me.AutoFilter.ApplyFilter
    bRefresh = False
End If
End Sub

Em cảm ơn anh ạ. Em làm được rồi.