- Katılım
- 29 Aralık 2007
- Mesajlar
- 40
- Excel Vers. ve Dili
- 2010-türkçe
- Altın Üyelik Bitiş Tarihi
- 12.02.2019
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
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