(13/06/2019, 14:57)haliliyas yazdı:

(13/06/2019, 13:33)nightashes yazdı: 3- Listboxların üstüne textbox koydum ki istediğim zaman aratma yapabileyim ama bunu da aktif bir hale getiremedim. Acaba text.box a göre arama yı nasıl sağlayabilirim.

TextBox1 arama olayı

Private Sub TextBox1_Change()

'Deneme arama textbox1___________________________

Dim sayfa As Worksheet



ListBox1.Clear

ListBox1.ColumnCount = 1

ListBox1.ColumnWidths = "50"

For Each sayfa In Worksheets

 If sayfa.Name Like "*" & Me.TextBox1.Text & "*" Then ListBox1.AddItem sayfa.Name

Next

'Deneme arama textbox1___________________________bitti

End Sub

textbox 2 için arama hangi sütuna göre yapılacak?

Kod işe yaradı.
Mümkünse iki kolona görede yapsın. ister kodla aratalım ister adla mümkünse.

* Bu arada büyük harf küçük harf duyarlı sanırım. Nasıl kaldırabiliriz. Yani "Ana" yazmak gerekiyor arama için tam eşleşme istiyor. "ana" diye yazsakda sonuç gelmesi için ne yapmak gerek.