Textbox'a geri dönme

[yselimyilmaz]

Selam arkadaşlar

Textbox1 ile arama yapıp bulduğu değerlere göre Listbox oluşturuyorum. Textbox1 e veri girip enterladıkdan sonra imlec Textbox2 ye gidiyor. Ben ise tekrar Textbox1 e geri dönmesi ve döndüğünde içinin boş olmasını istiyorum.

Kullandığım kodlar aşağıdaki gibidir. Bu kodlar içerisinde nasıl bir düzeltme yapmalıyım. Yardımcı olan arkadaşlara şimdiden teşekkürler


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = Empty Then Exit Sub
Dim i As Byte, bul As Range
For i = 2 To 3
Set bul = Sheets(i).Range("A2:A" & Sheets(i).Range("A65536").End(3).Row).Find(TextBox1.Text, , , 1)
If Not bul Is Nothing Then
TextBox2.Value = bul.Offset(0, 1).Value
TextBox3.Value = bul.Offset(0, 2).Value
TextBox4.Value = bul.Offset(0, 4).Value

Exit For
End If
Next i
If otomatik = True And Not bul Is Nothing Then
With ListBox1
.AddItem TextBox1.Text
.List(.ListCount - 1, 2) = TextBox3.Value
.List(.ListCount - 1, 3) = TextBox4.Value
.List(.ListCount - 1, 1) = TextBox2.Value
.List(.ListCount - 1, 4) = TextBox5.Value
End With
ElseIf otomatik = False And Not bul Is Nothing Then
GoTo 10
Else
If MsgBox("Kişi Bulunamadı." & vbLf & "Tüm Liste İçerisinde Arama Yapmak İstermisiniz?", vbYesNo, "DİKKAT") = vbYes Then
TextBox7 = TextBox1
MultiPage1.Value = 1
Call CommandButton6_Click
Else
Call TextBox1_Enter

End If

10 End If
End Sub

 

[AdemCan]

Merhaba,
.List(.ListCount - 1, 4) = TextBox5.Value
End With
Satırının altına, şu satırları ekleyiniz.

[COLOR="Blue"]TextBox1.Value = Empty
TextBox1.SetFocus[/COLOR]

ListBox1'e TextBox'ların içeriğini ekleyince, TextBox1'in içeriğini temizler ve İmleci TextBox1'e alır.

 

[Orion1]

Textbox1den çıkamaz.
Deneyiniz.

textbox1.value = empty
cancel = true

 

[yselimyilmaz]

Sayın; efsane ve orion1 ilginize teşekkür ederim.

orion1 in vermiş olduğu kodu efsanenin belirttiği yere yazınca sorun çözüldü.

 

[AdemCan]

Merhaba;
Rica ederiz işinize yaraması güzel, iyi çalışmalar.