Mất chức năng Data validation

[thucdoan_0111]

Anh chị giúp em với ạ, em sử dụng Data Validation tìm kiếm tài khoản cho sổ chi tiết từ bảng Hệ thống TK, nhưng sau khi em chạy macro để ẩn dòng trống thì mất chức năng Data, vậy em phải làm thủ thuật gì để lấy lại được Data và chạy được macro ạ.
Em xin cảm ơn trước ạ.
Thục Đoan

 

[BlogExcel.Com]

Gửi File lên xem sao bạn

 

[thinhvd]

Anh chị giúp em với ạ, em sử dụng Data Validation tìm kiếm tài khoản cho sổ chi tiết từ bảng Hệ thống TK, nhưng sau khi em chạy macro để ẩn dòng trống thì mất chức năng Data, vậy em phải làm thủ thuật gì để lấy lại được Data và chạy được macro ạ.
Em xin cảm ơn trước ạ.
Thục Đoan

Cái này thì phải xem đoạn Macro của bạn nữa mới biết được

 

[thucdoan_0111]

Sub InBC()
Dim HC As Long, i As Long
With Sheet1
HC = .Range("A65000").End(xlUp).Row
'.Range("A1:A" & HC).EntireRow.Hidden = False
For i = 5 To .Range("A65000").End(xlUp).Row
With .Range("H" & i)
If .Value = "" Then .EntireRow.Hidden = True
End With
Next
.Range("A1:A" & HC).EntireRow.Hidden = False
End With
End Sub
Em cũng không rành về vba lắm nên em copy ak, e hiểu sơ sơ từ a1 đến a... mà rổng thì hidden, k thì False, k biết đúng k ạ?