textbox

[memduh]

Bütün arkadaþlara merhaba.
Formunuza yeni üye oldum. Form içeriði çok harika emeði geçen tüm arkadaþlara teþekkürlerimi sunarým. Excele yeni merak saranlardan biriyim. gördüðüm kadarýyla formunuz excel meraklýlarýna çok faydalý ve bir birikim kaynaðýdýr. o vesileyle bir sorum olacak. userform üzerinde bir textbox ve listbox yerleþtirerek textboxa gireðim ismin ilk harfinden baþlayarak baþharfleri ayný olan isimleri listboxa görüntülenmesi. Ýsimler sayfa 1 A1:A500 de sýralý isimler fazla uzun olduðu için combobox rowsearch ile yaptým. ama bunu textbox ile yapmak istiyorum.


Excel 2003 Türkçe
ofis xp

[Haluk]

[vb:1:b08c67c052]Private Sub TextBox1_Change()
Dim MyRng As Range
ListBox1.Clear
For Each MyRng In Range("A1:A" & Range("A65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox1 & "*") Then ListBox1.AddItem MyRng
Next
End Sub
[/vb:1:b08c67c052]

[memduh]

Herkese Günaydýn.
Raider arkadaþa teþekkür ederim.eline saðlýk.
Yalnýz þunu sormak isterim. range 'den sonra sayfa ismini yazmam gerekiyor mu. Birde listede baþ harf yoksa (örneðin C harfi) yazdýðým zaman hata veriyor. Eðer textbox 'a girdiðim harf yoksa listbox boþ kalsýn. çalýþmalarýnýzda baþarýlar

[Haluk]

Birde listede baþ harf yoksa (örneðin C harfi) yazdýðým zaman hata veriyor.


nasý yani ?

[memduh]

Sayýn Raider ynlýþ sordum. Ã?zür dilerim.
1. sorun textbox 'a girdiðim harfe göre listbox1 listeliyor. texbox ýn içini sildiðim zaman a1 a500 kadar bütün isimleri listeliyor. isteðim. listbox ýn boþ kalmasý.
2,sorun textbox a girdiðim harfe göre listboax ta listelenen isimlerden birinini týklayýnca textbox2den textbox7 yakadar (6 textbox) textboxlara ismlerle ilgili veriler geliyor. textbox1 de harf deðiþtirince bu sefer hata veriyor.

[Haluk]

1.Sorununuz için:

[vb:1:a7417174fa]Private Sub TextBox1_Change()
Dim MyRng As Range
ListBox1.Clear
If TextBox1 <> Empty Then
For Each MyRng In Sheets("Sheet1").Range("A1:A" & _
Sheets("Sheet1").Range("A65536").End(xlUp).Row)
If LCase(MyRng) Like LCase(TextBox1 & "*") Then ListBox1.AddItem MyRng
Next
End If
End Sub
[/vb:1:a7417174fa]

2.Sorununuz için çalýþmanýzýn diðer kýsýmlarýný görmek gerekir. Veya Txt'lere veri alýrken on error resume next gibi birþey yerleþtirin.

[memduh]

Sayýn Raider çok teþekkür ederim.
Sayenizde her iki sorunda söylediðiniz gibi yaptým haloldu. Þimdilik þize iyi çalýþmalar dilerim.