Nhờ giúp đỡ viết code (1 người xem)

[amly1980]

Nhờ các anh chị giúp đỡ

 

[SA_DQ]

Bạn tham khảo cái ni:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [N10].Resize(99)) Is Nothing Then
    If UCase$(Target.Value) = "X" Then
        Target.EntireRow.Hidden = True
        Target.Offset(1).Select
    End If
 End If
End Sub