Clearing a value from a TextBox Automatically??

[Simon Lloyd]

Hi all, i have put together some code to delete 3 items of data
dependent on Textbox1 value....It works fine only, i can not get
Textbox1 to clear the value or text in it after deletion,

Any ideas?
Here's the code

Regards,
Simon

Dim mycell
Dim rng As Range
Worksheets("Stats12").Visible = True
Set rng = Range("Statlist")
For Each mycell In rng
If mycell.Value = Worksheets("New stats").TextBox1.Value Then
mycell.Value = ""
mycell.Offset(0, 1) = ""
mycell.Offset(0, 2) = ""
Call playersort
Worksheets("New stats").Select
Worksheets("Stats12").Visible = False
End If
Next
With Worksheets("New Stats")
Worksheets("New Stats").Select
TextBox1 = ""
End With
End Sub

 

[Simon Lloyd]

Hi all, Below is some code i use to delete some data, and i have no
worked out clearing the Textbox, but i have one other problem, when th
search takes place if the user hasn't typed the text or value to loo
for in the case in which it was typed it finds nothing how can i mak
it so that the case doesn't matter?

Regards,
Simon

Dim mycell
Dim rng As Range
Worksheets("Stats12").Visible = True
Set rng = Range("Statlist")
For Each mycell In rng
If mycell.Value = Worksheets("New stats").TextBox1.Value Then
mycell.Value = ""
mycell.Offset(0, 1) = ""
mycell.Offset(0, 2) = ""
Call playersort
Worksheets("New stats").Select
Worksheets("Stats12").Visible = False
End If
Next
Call tboxClear
End Sub

Sub tboxClear()
With Worksheets("New Stats")
Worksheets("New Stats").Select
If Range("A99").Value = "" Then
Worksheets("New Stats").TextBox1.Value = ""

End If
End With
End Su

 

[Dave Peterson]

if trim(Worksheets("New stats").TextBox1.Value) = "" Then
exit sub
end if

If lcase(mycell.Value) = lcase(Worksheets("New stats").TextBox1.Value) Then
....

 

[Simon Lloyd]

Once again thanks Dave!
Regards,
Simon