TextBox ile listbox da süzmede hata !

[vuranoğlu]

Merhaba
Textbox 1 (adı ) evrak arama - süzme işlemi yaparken
süzme de hata veriyor.
Private Sub TextBox1_Change() 'SÜZ

Dim suz As Worksheet
Dim Veri As Worksheet
Set suz = Worksheets("suz")
Set Veri = Worksheets("VERİ")
suz.Range("A2:I" & Worksheets("suz").Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents

If tiklandimi = True Then GoTo 10
Dim i As Long, sat As Long, deg As String, X As Long
TextBox1 = StrConv(TextBox1, vbUpperCase)
sat = Veri.Cells(Rows.Count, "A").End(xlUp).Row
EVRAKARAMA.RowSource = "": TextBox2 = ""
txtbx = UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I"))
X = 2
For i = 2 To sat
deg = UCase(Replace(Replace(Veri.Cells(i, "c").Value, "i", "İ"), "ı", "I"))
If UCase(Replace(Replace(deg, "i", "İ"), "ı", "I")) Like "*" & txtbx & "*" Then
suz.Cells(X, 1).Value = Veri.Range("A" & i).Value
suz.Cells(X, 2).Value = Veri.Range("B" & i).Value
suz.Cells(X, 3).Value = Veri.Range("C" & i).Value
suz.Cells(X, 4).Value = Veri.Range("D" & i).Value
suz.Cells(X, 5).Value = Veri.Range("E" & i).Value
suz.Cells(X, 6).Value = Veri.Range("F" & i).Value
suz.Cells(X, 7).Value = Veri.Range("G" & i).Value
suz.Cells(X, 8).Value = Veri.Range("H" & i).Value
suz.Cells(X, 9).Value = Veri.Range("I" & i).Value
X = X + 1
End If
Next
EVRAKARAMA.RowSource = suz.Range("A2:I" & X).Address
10
End Sub
Nasıl bir düzeltme yapmalıyım?
İlgilenen arkadaşlara şimdiden teşekkürler.

[sahin]

listboxada formada aynı isim verilmiş o yüzden hatalı geliyor
listbox ı EVRAKARAMAList olarak değiştirdim sorun yok gibi

NİSAN0.xlsm

[vuranoğlu]

Merhaba
Teşekkürler.
Ancak süzme işleminde;

örnek; Ahmet sorguladığımda 2 adet ahmet var birini dahi getirmiyor.

[Tarkan VURAL]

Merhaba,
Hem UserForm ismi hem de ListBox ismi aynı olmuş. Bu mantıkta çakışma sebebiyle doğru çakışmayabilir. Öncelikle isimleri ayırmanızı tavsiye ederim.

[sahin]

.RowSource özelliğine sadece hücre aralığı değil sayfa ismide olmalı

Kod: Tümünü seç

EVRAKARAMAList.RowSource = "SUZ!" & suz.Range("A2:I" & X).Address

ekteki dosyada "ad" textbox change deki kodu değiştirdim diğre kullandığınız yerledekini değiştirir siniz

NİSAN0 (2).xlsm