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 now worked out clearing the Textbox, but i have one other problem, when the search takes place if the user hasn't typed the text or value to look for in the case in which it was typed it finds nothing how can i make 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 Sub

[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 wrote:
>
> Hi all, Below is some code i use to delete some data, and i have now
> worked out clearing the Textbox, but i have one other problem, when the
> search takes place if the user hasn't typed the text or value to look
> for in the case in which it was typed it finds nothing how can i make
> 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 Sub
>
> --
> Simon Lloyd
> ------------------------------------------------------------------------
> Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
> View this thread: http://www.excelforum.com/showthread...hreadid=547614

--

Dave Peterson

[Simon Lloyd]

Once again thanks Dave!
Regards,
Simon