• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Arama kodlarındaki eksiklik

Ö

önder34

Katılım
20 Ekim 2005
Mesajlar
301
Excel Vers. ve Dili
excel 2010 Türkçe
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
 
INPUTBOX konusunda forumda arama yaparak sonuca ulaşabilirsiniz.
 
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.
 
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:D")
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
 
1.mesajınızla 4.mesajınızda aynı şeyi mi soruyorsunuz? Ben soruyu anlamadım sanırım. Kusura bakma.
 
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
 
Rica etsem bu kodların olduğu dosyayı paylaşır mısınız? Hızlıca bakıp cevap vereyim.
 
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
 

Ekli dosyalar

Sıra Numarasını hangi sayfada hangi sütunda vereceksiniz?
 
Sayfa2 ve Data sayfalarında A sütununda
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst