ComboBoxda Sayfaları Göstermek

1 2 3 4 5 6 7 8 9
09/05/2020, 12:55

feraz

Alttaki içerisinde olarak arar.Baştaki "*" &  bunları silerseniz başlahan olarak arar.

"*" & LCase(Me.ComboBox1.Value) & "*"
Dosyayı denedim önceki yazdığım yani başlayan olarak değiştirince çalışıyor.Ayrıca * bunu yazarsanız koda tümü listelenir ve *L olarak yazarsanız L içerenler listeleniyor.
Ayrıca alttaki kodu silebilirsiniz isterseniz combo boşsa listboxtta boş olsun diye eklemiştim.
If Me.ComboBox1.Value = Empty Then Me.ListBox1.Clear
09/05/2020, 14:03

m_demir

Hocam anladığım kadarı ile If LCase(syf.Name) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem syf.Name mavi olan kodları silin diyorsunuz. 

Hocam sadece mavi olan bölümü sildiğim zaman kodun geriye kalanı hata veriyor.

Hocam ComboBox A harfi girdiğim zaman A harfi ile başlayan isimleri ListBox da sıralasın.
                           B harfi girdiğim zaman B harfi ile başlayan isimleri ListBox da sıralasın.
                             Z harfi girdiğim zaman Z harfi ile başlayan isimleri ListBox da sıralasın.
09/05/2020, 15:11

feraz

Dosyayı ekledim.
Ayrıca combonun özlelliğini resimdeki none ile değiştirmelisiniz.




09/05/2020, 15:21

feraz

Bu arada @berduş hocanın koduyla yapıldı.Harf duyarlılığı ortadan kalkmış oldu.

Kendisinede saygılar sunuyoruz gizel yöntem için.
09/05/2020, 15:30

m_demir

Bende @berduş hocama sonsuz teşekkürlerimi sunuyorum. O da bütün konularda çok yardımcı oluyor. Bu sitede emeği geçen bütün Hocalarıma çok teşekkürler.
09/05/2020, 15:52

feraz

(09/05/2020, 15:30)m_demir yazdı: Bende @berduş hocama sonsuz teşekkürlerimi sunuyorum. O da bütün konularda çok yardımcı oluyor. Bu sitede emeği geçen bütün Hocalarıma çok teşekkürler.
Kolay gelsin benim kod yani lcase ilede eşleşme olurdu yada kod sayfanın en başında option compare text te yazılabilirdi.
Tabii hertürlü olur abey.
Berduş hoca sayesince zihnimiz açılıyor
1 2 3 4 5 6 7 8 9