How to clear a search box

[Krown]

I have the code below for a search box on my worksheet that filters as a type. Is there something simple that I could add so that the search box contents are deleted automatically after I hit enter to search? I don't want to have to manually clear the contents each time.

Thanks.


Private Sub TextBox1_Change()

Application.ScreenUpdating = False

ActiveSheet.ListObjects("Antibodies").Range.AutoFilter Field:=1, Criteria1:="*" & [B2] & "*", Operator:=xlFilterValues

Application.ScreenUpdating = True

End Sub

 

[Micron]

Try Sheets("Sheet name here").Textboxes("Textbox Name Here") = ""
but where to put it? Possibly Lost Focus event (if hitting enter shifts the focus off of the textbox) or tb double click event if not.

 

[Akuini]

Is there something simple that I could add so that the search box contents are deleted automatically after I hit enter

For activex textbox on sheet, try:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'if user press Enter while cursor is in the tetxbox
    If KeyCode = 13 Then TextBox1 = Empty
End Sub

 

[Krown]

I found this to work:

Sub ClearAntibody()
'
' ClearAntibody Macro

ActiveSheet.OLEObjects("TextBox1").Object.Value = ""

End Sub

Thank you both for the input!

 

[Akuini]

I found this to work:

Glad you found a solution, but I don't understand, you said you need to clear the the textbox content by hitting Enter, that's what my code does.

so that the search box contents are deleted automatically after I hit enter