Private Sub TextBox1_Change()If TextBox1 = "" ThenActiveSheet.Range("$A$1:$P$10000").AutoFilter Field:=3ElseActiveWindow.SmallScroll ToRight:=1 ActiveSheet.Range("$A$1:$P$10000").AutoFilter Field:=3, Criteria1:=TextBox1 End IfEnd Sub
کامنت