Userform üzerinde Listeyi Ara , Listbox ta seç

[ozgretmen]

Merhabalar ,
Sorum ekte.Şimdiden teşekkürler herkese...

 

[halit3]

Bir şeyler yaptım ama bir iki değişiklikle kontrol et

 

[ozgretmen]

Sayın halit3 ilginizden ötürü teşekkürler.Kodlarınızı inceliyorum.

 

[halit3]

Küçük değişiklik yaptım büyük küçük harf duyurlılığı için ve aynı olanlar için

 

[ozgretmen]

Sayın halit3 çok hoş olmuş.İsme göre seçim yapmak için çok güzel.Acaba numara girip , öğrenciyi seçtirebilir miyiz ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Alternatif

Private Sub ListBox1_Click()
Dim sat As Integer
For sat = 3 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") = ListBox1.Column(0) Then
Cells(sat, "b").Select
TextBox1 = ActiveCell
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
End If: Next
End Sub

Private Sub TextBox5_Change()
Dim sat, deg1, deg2, s As Integer
ListBox1.Clear
For sat = 3 To Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox5, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "b")
s = s + 1
End If: Next
End Sub

 

[ozgretmen]

Teşekkürler sayın N.Ziya Hiçdurmaz.Bu kodlar sayesinde çok şeyler öğreniyorum.Ama daha yolun başında sayılırım.Saygılar.

 

[halit3]

numaraya göre sorgulama

 

[ozgretmen]

Çok Ama Çok Teşekkürler sayın halit3.İyi akşamlar.Saygılar...