Soru Arama kodlarındaki eksiklik

[önder34]

Merhaba yaptığım çalışmada iki ayrı arama butonum var. İşlemi yapıyor ama evet seçeneğinden sonra veriler dolu textbox taki bilgiler kalacak (kalıyor) hayır seçeneğinden sonra textboxlar temizlenip yeni sorgu için imleç textbox1 e gelmesini , aynı şekilde aradığınız kayıt bulunamadı sonrasındaki tamamdan sonra textbox1 nasıl yapabilirim

Private Sub CommandButton1_Click()
On Error GoTo bitir

If Len(TextBox1.Value) < 11 Then Exit Sub
Dim pr As Worksheet
Set pr = Sheets("Sayfa2")
Dim X As Long
X = pr.Range("A1000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:D")
aranan = TextBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 1)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 2)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 3)
Set pr = Nothing
Set tablo = Nothing
MsgBox "ARADIĞINIZ ADAY" & vbCrLf & "ÖĞRENCİ OLARAK KAYIT EDİLECEK Mİ?", vbYesNo + vbInformation, "DEĞERLENDİRME"

Exit Sub
bitir: MsgBox "ARADIĞINIZ KAYIT BULUNAMADI", vbOKOnyl + vbInformation, " ÜZGÜNÜM ! "

End Sub

ikinci arama butonu
Private Sub CommandButton3_Click()
On Error GoTo bitir
If Len(TextBox1.Value) < 11 Then Exit Sub
Dim pr As Worksheet
Set pr = Sheets("DATA")
Dim X As Long
X = pr.Range("A1000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:P")
aranan = TextBox1.Text
TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 1)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 2)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 3)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(, 4)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(, 5)
ComboBox1.Value = tablo.Find(aranan, , , xlWhole).Offset(, 6)
ComboBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(, 7)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(, 8)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(, 9)
TextBox9.Value = tablo.Find(aranan, , , xlWhole).Offset(, 10)
ComboBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(, 11)
ComboBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(, 12)
TextBox10.Value = tablo.Find(aranan, , , xlWhole).Offset(, 13)
TextBox11.Value = tablo.Find(aranan, , , xlWhole).Offset(, 14)
TextBox12.Value = tablo.Find(aranan, , , xlWhole).Offset(, 15)
Set pr = Nothing
Set tablo = Nothing
MsgBox "ARADIĞINIZ ÖĞRENCİ DOĞRU MU ?" & vbCrLf & "ÖĞRENCİ BİLGİLERİNDE GÜNCELLEME YAPILACAK MI ?", vbYesNo + vbInformation, "DEĞERLENDİRME"
Exit Sub
bitir: MsgBox "ARADIĞINIZ KAYIT BULUNAMADI", vbOKOnyl + vbInformation, " ÜZGÜNÜM ! "
End Sub

 

[ÖmerFaruk]

INPUTBOX konusunda forumda arama yaparak sonuca ulaşabilirsiniz.

 

[önder34]

Sayın ÖmerFaruk teşekkürler çok sayıda konu araştırması yaptıktan sonra işin içinden çıkamadığım için yardım istedim.

 

[önder34]

bulduğum veriyi kaydetmek için şöyle bir kod kullanıyorum ve burada da sıra numarası vererek kayıt yapamıyorum.
Private Sub CommandButton4_Click()

Dim pr As Worksheet
Set pr = Sheets("Sayfa2")
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A")
aranan = TextBox1.Text

KayitSatiri = tablo.Find(aranan, LookIn:=xlValues, lookat:=xlWhole).Row

sonsatir = KayitSatiri

sonsatir = WorksheetFunction.CountA(Worksheets("DATA").Range("A:A")) + 1
Worksheets("DATA").Cells(sonsatir, 1) = TextBox1.Value
Worksheets("DATA").Cells(sonsatir, 2) = TextBox2.Value
Worksheets("DATA").Cells(sonsatir, 3) = TextBox3.Value
Worksheets("DATA").Cells(sonsatir, 4) = TextBox4.Value
Worksheets("DATA").Cells(sonsatir, 5) = TextBox5.Value
Worksheets("DATA").Cells(sonsatir, 6) = TextBox6.Value
Worksheets("DATA").Cells(sonsatir, 7) = ComboBox1.Value
Worksheets("DATA").Cells(sonsatir, 8) = ComboBox2.Value
Worksheets("DATA").Cells(sonsatir, 9) = TextBox7.Value
Worksheets("DATA").Cells(sonsatir, 10) = TextBox8.Value
Worksheets("DATA").Cells(sonsatir, 11) = TextBox9.Value
Worksheets("DATA").Cells(sonsatir, 12) = ComboBox3.Value
Worksheets("DATA").Cells(sonsatir, 13) = ComboBox4.Value
Worksheets("DATA").Cells(sonsatir, 14) = TextBox10.Value
Worksheets("DATA").Cells(sonsatir, 15) = TextBox11.Value
Worksheets("DATA").Cells(sonsatir, 16) = TextBox12.Value
For Each i In Me.Controls
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then i.Value = ""
If TypeName(i) = "OptionButton" Or TypeName(i) = "CheckBox" Then i.Value = False
Next i

End Sub

 

[ÖmerFaruk]

1.mesajınızla 4.mesajınızda aynı şeyi mi soruyorsunuz? Ben soruyu anlamadım sanırım. Kusura bakma.

 

[önder34]

Sayın ÖmerFaruk 1. mesajımda hayır cevabından sonra textboxların temizlenmesi ve imlecin textbox1 e dönmesi . 4 Mesajımda ise kayıt yaptığımda listboxta hemen görünmesi ve sıra numarası verme işlemi nasıl yapacağımı soruyorum

 

[ÖmerFaruk]

Rica etsem bu kodların olduğu dosyayı paylaşır mısınız? Hızlıca bakıp cevap vereyim.

 

[önder34]

Merhaba dosya üzerinde iki gündür uğraşıyorum bazı güncellemeler yaptım tabii. Şimdi sayfa2 ve data sayfalarına sıra numarası vererek kayıt yapmaya çalışıyorum .Dosyam ekte

 

[ÖmerFaruk]

Sıra Numarasını hangi sayfada hangi sütunda vereceksiniz?

 

[önder34]

Sayfa2 ve Data sayfalarında A sütununda