Mình có một đoạn code autofilter như sau
Sub locch()
With ActiveSheet
Application.ScreenUpdating = False
.Unprotect Password:="xyz"
If Len(.[C3]) >= 1 Then
.Cells.AutoFilter
.[$b$7:$b$538].AutoFilter Field:=1, Criteria1:=.[C3].Value & "*", Operator:=xlFilterValues
ActiveWindow.SmallScroll...