listboxta süzme işlemi hatası

[airborne]

s.a.

ekli dosyada userform üzerinde listboxta sayfa1 de c sütununda süzme işlemi yapmak istiyorum ama textboxa karakter girdiğimde userform kapanıyor. Hatayı bir türlü çözemedim.

Üstadlar yardımcı olursa memnun olurum.

Selametle.................

İndir Kitap12

Dosyayı indir Kitap12

dosya.co

 

[askm]

1. sansatir = Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row yazmışsınız. sonsatir olması gerekli.
2. 1 sütunda arama yapıyor. A sütununda sıran numarası mevcut. Hangi sütuna göre arama yapmak istiyorsunuz.
Örneğin C sütununa göre aratacaksanız Sheets(1).Cells(i, 1) kısmını Sheets(1).Cells(i, 3) yapmanız gerekli.

 

[airborne]

ilgin için teşekkür ederim ama olmadı. yine kapanuyor.

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub TextBox7_Change()
On Error Resume Next
ListBox1.Clear
aranan = TextBox7.Text 'burada ucase yaparsanız sutundaki ifadelerin tümü büyük olmalı.
sonsatir = Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row
ReDim dizi(sonsatir) As Variant
    If OptionButton2 = True Then
    x = 0
    For i = 1 To sonsatir - 1
    If Sheets(1).Cells(i, 3) Like "*" & aranan & "*" Then
    dizi(x) = Sheets(1).Cells(i, 3)
    x = x + 1
    End If
    Next i
Else
    x = 0
    For i = 1 To sonsatir - 1
    If Sheets(1).Cells(i, 3) Like aranan & "*" Then
    dizi(x) = Sheets(1).Cells(i, 3)
    x = x + 1
    End If
    Next i

End If
ReDim Preserve dizi(x - 1)
ListBox1.List = dizi
End Sub

 

[airborne]

Teşekkür ederim

 

[airborne]

s.a.

Birde arama yapıldıktan sonra listboxa F sütunu ile birlikte getirilebilirmi.

 

[airborne]

S. A.

Üstad lar yardımlarınızı bekliyorum.