sửa code tạo text box và ẩn hiện dòng

[xuan.97]

Chào cả nhà
Em có file dữ liệu này, em muốn tạo text box để dễ tìm kiếm và ẩn hiện dòng khi xóa hoặc nhập dữ liệu vào(cụ thể là cột B)
Khi em nhập mã code ra từng sheet riêng thì excel chấp nhận nhưng khi nhập chung vào 1 sheet thì lỗi mong mọi người giúp e gộp 2 code thành 1 code dùng chung với ạ.....em mới tìm hiểu về excel nên còn gà mờ lắm ạ



Private Sub TextBox1_Change()
ActiveSheet.ListObjects("BANG_SL").Range.AutoFilter FIELD:=2, _
Criteria1:="*" & [E1] & "*"
If Range("E1").Value = "" Then
ActiveSheet.ListObjects("BANG_SL").Range.AutoFilter FIELD:=2
End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B45")) Is Nothing Then
AnDongHDTuDong
End If
End Sub

Sub AnDongHDTuDong()
Application.ScreenUpdating = False
Dim SoDongDuLieu As Long, DongCuoi As Long, DongDau As Long, SoDongHienThi As Long
SoDongDuLieu = Range("c1").Value ' noi dat cong thuc tinh so dong co du lieu
DongCuoi = 45: DongDau = 3: SoDongHienThi = DongDau + SoDongDuLieu + 1

If SoDongDuLieu = 0 Then ' neu chua nhap gi ca
Rows(DongDau & ":" & DongCuoi).Hidden = True ' an toan bo
Rows(DongDau & ":" & DongDau + 1).Hidden = False ' hien lai cac dong co chua du lieu
ElseIf SoDongDuLieu = DongCuoi - DongDau + 1 Then ' neu da nhap het cac dong trong hd
Rows(DongDau & ":" & DongCuoi).Hidden = False
Else ' nguoc lai, nhap binh thuong
Rows(DongDau & ":" & DongCuoi).Hidden = False ' hien thi tat ca dong
Rows(DongCuoi & ":" & SoDongHienThi).Hidden = True ' an tu dong cuoi tro len
End If
Application.ScreenUpdating = True
End Sub

 

[Maika8008]

Lại thêm người viết tắt, không đếm xỉa đến câu cú tiếng Việt, khóc huhu cao người nữa.

 

[xuan.97]

Lại thêm người viết tắt, không đếm xỉa đến câu cú tiếng Việt, thêm vụ khóc huhu cao người nữa. code này là em lấy trên mạng ạ. mong được giúp đỡ ạ

 

[Maika8008]

Khộ! GPE không phải là 1 môn phái võ lâm nên bạn đừng có dùng những từ cao nhân, chỉ giáo nhé! Nếu bạn có thiện ý thì sẽ sớm có người giúp thôi.

 

[xuan.97]

Khộ! GPE không phải là 1 môn phái võ lâm nên bạn đừng có dùng những từ cao nhân, chỉ giáo nhé! Nếu bạn có thiện ý thì sẽ sớm có người giúp thôi.

Dạ vâng.em cảm ơn ạ

 

[Maika8008]

Dạ vâng.em cảm ơn ạ

Bây giờ bạn mô tả cẩn thận, mạch lạc về việc bạn dùng thế nào là không lỗi, rồi chừ dùng thế nào thì sinh ra lỗi và "gộp 2 code thành 1 code dùng chung" là thế nào!

File của bạn mới thử là đã thấy cái tên table của bảng tính với tên goi trên code là trật lất rồi đó.

 

[xuan.97]

Bây giờ bạn mô tả cẩn thận, mạch lạc về việc bạn dùng thế nào là không lỗi, rồi chừ dùng thế nào thì sinh ra lỗi và "gộp 2 code thành 1 code dùng chung" là thế nào!

File của bạn mới thử là đã thấy cái tên table của bảng tính với tên goi trên code là trật lất rồi đó.

Dạ.em cảm ơn ạ!!!
Em đã đổi lại tên bảng tính trong code và có thể tìm kiếm được rồi ạ

Còn code về ẩn hiện dòng, khi em không thực hiện lênh tìm kiếm thì nó vẫn ẩn hiện dòng bình thường....... còn khi thực hiện lệnh tìm kiếm thì bảng tính lại trả về bảng tính ban đầu ạ(không ẩn những dòng không có giá trị)

Mong được mọi người giúp đỡ ạ