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.