Lỗi tiêu đề viết hoa: SỬA CODE TẠO TEXT BOX VÀ ẨN HIỆN DÒNG

[xuan.97]

chào cả nhà
e 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 các cao nhân giúp e gộp 2 code thành 1 code dùng chung với ạ huhu 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