textbox a yazılan veriyi listboxta görüntülemek

[excelboy]

Merhaba.Forumdan faydalandığım aşağıda yazmış olduğum kodlarda maalesef hata alıyorum.Texbox23 e girdiğim veriyi listboxa gösterimde nerde hata yapıyorum acaba? Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.(Yani yapmak istediğim aradığım veriyi kensiyle beraber sağındaki ve solundaki veriler ile listboxta listelemek.)

Private Sub TextBox23_Change()

On Error GoTo 10
TextBox23 = UCase(TextBox23)

ListBox2.Clear

If OptionButton3.Value = True Then
For i = 1 To Worksheets("RAYİC").Cells(65536, 1).End(xlUp).Row
If Trim(TextBox23) = Left(Worksheets("RAYİC").Cells(i, 1), Len(TextBox23.Text)) Then

ListBox2.AddItem (Worksheets("RAYİC").Cells(i, 2))

End If
Next i
Else
For i = 1 To Worksheets("RAYİC").Cells(65536, 1).End(xlUp).Row
If Trim(TextBox23) = Left(Worksheets("RAYİC").Cells(i, 2), Len(TextBox23.Text)) Then

ListBox2.AddItem (Worksheets("RAYİC").Cells(i, 2))

End If
Next i
End If
Exit Sub
10 MsgBox "HATA!"





End Sub

 

[excelboy]

Arkadaşlar örnek bir dosyası olan gönderirse sevinirim.İyi çalışmalar

 

[excelboy]

arkadaşlar üzgünüm ama forumdaki örnekleri arayıp durdum ama sonuç alamadım.Kısaca şunu yapmak istiyorum ;
A ,B,C,D sütunlarında veriler var.Ben texboxa girdiğim bir veriyi A sütununda buldu ise listboxta sıralaması ( bu 4 sütundaki değerlerle birlikte)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/showthread.php?t=30927

 

[excelboy]

sn COST_CONTROL ...bende zaten tam o dediğiniz mesajları inceliyorum.! İlginiz için tşk ederim.( aslında sabırsızlığımızın kurbanı oluyoruz ! )