Giúp sửa dùm code ẩn dòng.

[thanhtam348]

Tôi có đoạn code dùng ẩn dòng trang in, tạo lệnh cho nó khi chọn danh sách in bằng list Data Validation, giờ mình muốn thay đổi Data Validation bằng ComboBox, nhờ AC với các bạn thay đổi dùm cho nó thủ tục mới. Cám ơn.

If Not Intersect([I2:I2], Target) Is Nothing And Target.count = 1 Then
Cancel = True
Application.ScreenUpdating = False
Dim Vungchon, Sodong, i, Vungche
Set Vungchon = Selection
Range("In").Select 'dat name chon vung IN
Set Vungche = Selection
Sodong = Selection.Rows.count
Vungche.Range("A1").Select
For i = 1 To Sodong
    If ActiveCell.Value = "K" Then
        Selection.EntireRow.Hidden = True
    End If
    If ActiveCell.Value = "C" Then
        Selection.EntireRow.Hidden = False
    End If
    ActiveCell.Offset(1, 0).Range("A1").Select
Next
    Vungchon.Activate
Application.ScreenUpdating = True
End If
End Sub