ListBox kutusunda bulunan veriler için arama kodu lazım

[asdsxx]

Arkadaşlar excel UserForm da bulunan listbox kutusunda bulunan verilerden arayıp bulabilen bir kod lazım.
yüzlerce veriyi kaydırma çubuğu ile aramak yerine aradığımız veriyi yazarak bulmayı sağlayan bir kod lazım.

 

[Orion1]

Örnek bir dosya yüklerseniz,daha doğru ve hızlı bir sonuç alırsınız.

 

[asdsxx]

Orion1 Bey ilginiz için teşekkür ederim.
Benim istediğim userform da Listbox1 isimli listbox var ve listbox'a 5987 satırdaki veriler 1 den başlayarak 5987 kadar veri nosu var. Örneğin "TextBox27" isimli arama kutusuna yazacağın rakamı lixtbox da süzecek.
Kod aşağıdaki verileri kapsayacak şekilde olabilir.
"Listbox1" ve "Textbox27"
Listbox1 'in verileri aldığı sütun= "B" sütunu
Verinin başladığı satır: 9, Yani verile "B9:B5995" arası
Sayfa1
sayfa ismini ben değiştirim
Selamlar...

 

[asdsxx]

Arkadaşlar aşağıdaki arama kodunda "Selection.AutoFilter Field:=25" kısmı çalışmıyor. 23 ve 24. sütunlarda metin var. ve bu kod bu bölümler için yazılmıştı ve düzgün çalışıyor. Ben 3. optionsbutton ekleyerek 25. sütunda da arama yapmak istiyorum. ama burada 1 den başlayarak 6000 e kadar devam eden rakamlar var. sanırım kod metin arama şeklinde yazılmış. Bunu metin veya rakam farketmeden arama yapılabilecek şeklinde nasıl düzenlenir.
Not: Aşağıdaki açıklama ile belirttiğim kodlar yeni eklendi. bunların dışındaki kod hatasız çalışıyor. 23, ve 24. sütunlarda metin var, 25. sütunda rakam var.
Yukarıda istediğim arama kodu bunun içindi.
Yardımcı olursanız sevinirim.

Private Sub CommandButton22_Click()
Sheets("Sayfa1").Select

On Error Resume Next
[B]METİN1 = TextBox3.Value
Set FC2 = Range("A9:AB6500").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=araSutunda, Criteria1:="*" & TextBox3.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=24
Selection.AutoFilter Field:=23
Selection.AutoFilter Field:=25  'Bu kısım Çalışmıyor. yeni eklendi
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End If

TextBox1.Value = Range("w6").Value
TextBox2.Value = Range("w7").Value
  
TextBox7.Value = Range("c6").Value
TextBox8.Value = Range("c7").Value

TextBox9.Value = Range("d6").Value
TextBox10.Value = Range("d7").Value

TextBox11.Value = Range("e6").Value
TextBox12.Value = Range("e7").Value

TextBox13.Value = Range("f6").Value
TextBox14.Value = Range("f7").Value

TextBox15.Value = Range("g6").Value
TextBox16.Value = Range("g7").Value

TextBox17.Value = Range("h6").Value
TextBox18.Value = Range("h7").Value

TextBox19.Value = Range("ı6").Value
TextBox20.Value = Range("ı7").Value

TextBox21.Value = Range("j6").Value
TextBox22.Value = Range("j7").Value

TextBox23.Value = Range("k6").Value
TextBox24.Value = Range("k7").Value

TextBox25.Value = Range("t6").Value
TextBox26.Value = Range("t7").Value

    f = WorksheetFunction.CountA(Sheets("Sayfa1").Range("B9:B6000"))
Sheets("Sayfa1").Unprotect


Set rng = Sheets("Sayfa1").Range("B9:B" & f + 8).SpecialCells(xlCellTypeVisible)
'Sheets("Sayfa1").Protect
With ListBox1
    .Clear
    .RowSource = ""
End With

With ListBox4
    .Clear
    .RowSource = ""
End With

For Each rngCell In rng
    ListBox1.AddItem rngCell.Value
    ListBox4.AddItem rngCell.Value
    Next rngCell
End Sub[

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub OptionButton1_Click()
araSutunda = 24
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub OptionButton2_Click()
araSutunda = 23
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub OptionButton3_Click()
araSutunda = 25
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''Bu kısım yeni eklendi.
/CODE]