(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?