Listbox da veri süzme Hakkında

[acebeci]

Değerli arkadaşlar elimdeki aşağıdaki kod ile TexBox İle ListBox da süzme yaptırıyorum.Yalnız şöyle bir sıkıtı var küçük harfle arama yaptığımda sonuca ulaşamıyorum birde diyelim ki yazım yanlışı yaparsam bütün yazdığımı silip tekrar yazmam gerekiyor o işlem içinde geriye doğru sildikçe sonuca doğru ulaşabilir miyim? İnşallah anlatabilmişimdir.Şimdiden ilginizden dolayı çok teşekkür ederim.


Private Sub ListBox1_Click()
If ListBox1.ListCount = 0 Then Exit Sub
Sheets(ListBox1.Value).Select
Unload Me
End Sub
Private Sub TextBox1_Change()
Dim arrVeri()
Dim y As Long, i As Long, son As Long
y = 0
Set sh = Sheets("liste")
On Error Resume Next
If TextBox1 <> Empty Then
For i = 0 To ListBox1.ListCount - 1
If InStr(1, ListBox1.List(i), UCase(TextBox1)) > 0 Then
ReDim Preserve arrVeri
arrVeri = ListBox1.List(i)
y = y + 1
End If
Next i
ListBox1.Clear
ListBox1.List = arrVeri
Else
ListBox1.Clear
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
ListBox1.AddItem sh.Cells(i, 2)
Next i
End If
Set sh = Nothing
End Sub

Private Sub UserForm_Initialize()
Dim arrVeri()
Dim y As Long, i As Long, son As Long
y = 0
Set sh = Sheets("liste")
On Error Resume Next
If TextBox1 <> Empty Then
For i = 0 To ListBox1.ListCount - 1
If InStr(1, ListBox1.List(i), UCase(TextBox1)) > 0 Then
ReDim Preserve arrVeri
arrVeri = ListBox1.List(i)
y = y + 1
End If
Next i
ListBox1.Clear
ListBox1.List = arrVeri
Else
ListBox1.Clear
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
ListBox1.AddItem sh.Cells(i, 2)
Next i
End If
Set sh = Nothing
End Sub

 

[Mahmut Bayram]

Sayın Orion1'in bir örneğini kullanabilirsiniz.

 

[acebeci]

Mahmut Bey ilginizden dolayı çok teşekkür ederim problemimi sayenizde çözebildim.Eğer çok olmazsam bir şey daha rica etmek istiyorum bu listbox da sayfa isimlerini arattırıp listeliyorum daha önce o sayfaya gitmek için basitçe aşağıdaki kodu kullanıyordum Peki diyelim ki HAKAN İsminde (soyadları farklı) 6 ismi listeledi bu isimler arasında aşağı yukarı tuşlar ile ilerleyip istediğim sayfaya gidebilir miyim

Private Sub CommandButton1_Click()
Sheets(ListBox1.Value).Select
End Sub

 

[Korhan Ayhan]

Kullandığınız sayfa seçme kodunu "ListBox" nesnesinin "Change" olayına yazmayı deneyiniz.

 

[Mahmut Bayram]

AllahuAlem şöyle bişey yapmaya çalışıyorsunuz.

 

[acebeci]

Kullandığınız sayfa seçme kodunu "ListBox" nesnesinin "Change" olayına yazmayı deneyiniz.

AllahuAlem şöyle bişey yapmaya çalışıyorsunuz.

Sayın Mahmut sayın Korhan Şimdilik her şey yolunda gözüküyor ilginizden dolayı çok teşekkür ederim.İyiki varsınız