Merhaba arkadaşlar,
Ben aşağıdaki kod ile sayfa isimlerini listbox'a baş harfine göre alıyorum.
ama ben textbox1'e tek harf yerine A yazınca baş harfi A olanlar A nın yanına H yazınca AH la başlayanlar AHM yazınca AHM le başlayanlar diye devam etsin istiyorum.
Yardım olacak arkadalara şimdiden teşekkürlerimi sunarım.
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
Dim i As Integer
ListBox1.Clear
For i = 1 To Worksheets.Count - 9
If WorksheetFunction.Proper(Left(Worksheets(i).Name, 1)) = _
WorksheetFunction.Proper(TextBox1.Text) Then _
ListBox1.AddItem Worksheets(i).Name
Next
End Sub
Ben aşağıdaki kod ile sayfa isimlerini listbox'a baş harfine göre alıyorum.
ama ben textbox1'e tek harf yerine A yazınca baş harfi A olanlar A nın yanına H yazınca AH la başlayanlar AHM yazınca AHM le başlayanlar diye devam etsin istiyorum.
Yardım olacak arkadalara şimdiden teşekkürlerimi sunarım.
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
Dim i As Integer
ListBox1.Clear
For i = 1 To Worksheets.Count - 9
If WorksheetFunction.Proper(Left(Worksheets(i).Name, 1)) = _
WorksheetFunction.Proper(TextBox1.Text) Then _
ListBox1.AddItem Worksheets(i).Name
Next
End Sub