empty text box in a userform

[still learning]

Hi

I have a UserForm with the following code

Private Sub CommandButton1_Click()
    With TextBox1 
        ActiveSheet.Range("af2").Value = .Text
     End With
    With TextBox3 
        ActiveSheet.Range("ag2").Value = .Text
    With TextBox10  
        ActiveSheet.Range("ah2").Value = .Text
     End With
 Me.Hide
End With
find
Unload Me
End Sub

What the fine macro does is an advance search looking for the input word from one of the text boxes. (only one text box will have input)
If the input can’t be found, a message box comes up with “no match try again” and any input in AF2:AH2 gets deleted
Then the userform comes up again.

Is there a way to have the textbox without the previous input so the user doesn’t have to delete it.



mike

 

[arpd123]

You can write, e.g. TextBox1.Text = "" at the appropriate point in your code to set the text in Textbox1 to the empty string. Repeat the same for the other text boxes.

 

[still learning]

Hi arpd123
worked perfect
thank you

mike