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.

 

[DoğanD]

Merhaba,

RowSource atamanızda problem var. Kodu EVRAKARAMA.RowSource = "Suz!" & Range("A2:I" & X).Address şeklinde değiştirip dener misiniz?

 

[vuranoğlu]

Merhaba
EVRAKARAMA.RowSource = "Suz!" & Range("A2:I" & X).Address
saturda hata veriyor.

 

[DoğanD]

Bende sorunsuz çalışıyor. Orijinal dosyada sayfanın adı farklı olabilir mi?

 

[vuranoğlu]

Merhaba
Ekli olan dosyada denedim.

 

[DoğanD]

Bu dosyadaki Textbox1.Change olayında X'e değer atamamışsınız. RowSource özelliğinden önce X = suz.Range("A" & Rows.Count).End(xlUp).Rowkodunu ekleyip dener misiniz?