Копироване содержимого ячейки по мере ее заполнения

[boiets]

Всем доброго дня!

Помогите пожалуйста решить вот такую задачу:
Есть TextBox и ToggleButton. На данный момент кнопка настроена на копирование ячейки и поиск ее по автофильтру.

Private Sub TextBox1_Change()

End Sub

Private Sub ToggleButton1_Click()
Dim x As String
x = TextBox1.Value
If ToggleButton1.Value = True Then
Selection.AutoFilter Field:=5, Criteria1:=x, Operator:=xlAnd

Else
TextBox1.Value = ""
x = TextBox1.Value
Selection.AutoFilter Field:=5, Criteria1:=x, Operator:=xlAnd
ActiveSheet.Outline.ShowLevels RowLevels:=1
End If
End Sub

Необходимо чтоб при зажатой кнопке (включен поиск по фильтру), по мере заполнения TextBox происходило изменение переменной. То есть, активировали кнопку, перешли в TextBox, там вводим значение, и происходит автозахват этого значения.


Заранее благодарен за помощь.

[IgorGO]

Private Sub TextBox1_Change()
  If ToggleButton1.Value Then
    Selection.AutoFilter Field:=5, Criteria1:=TextBox1.Value, Operator:=xlAnd
End Sub

Private Sub ToggleButton1_Click()
  If ToggleButton1.Value Then ToggleButton1.Caption = "ВКЛ." _
  Else ToggleButton1.Caption = "ВЫКЛ": TextBox1.Value = ""
End Sub

[boiets]

Спасибо за оперативную помощь, немного упростил себе жизнь

Private Sub ClearResults_Click()
TextBox1.Value = ""
  Selection.AutoFilter Field:=5, Criteria1:=TextBox1.Value, Operator:=xlAnd
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

Private Sub TextBox1_Change()
      Selection.AutoFilter Field:=5, Criteria1:=TextBox1.Value, Operator:=xlAnd
End Sub