Textboxa girilen her harfe göre aratma?

[mavisachal]

Arkadaşlar selam,

benim istediğim userform1deki firma textboxa girdiğim bir veriyi exceldeki veritabanından bulmasını istiyorum. Ancak aramaya başlamasını ilk harften sonra başlamasını istiyorum.
yani şöyle olacak firmanın ilk harfini yazınca bir listbox açılsın ve listboxda excelde firma kolonunda o harfle başlayan firmalar çıksın istiyorum ve her harf yazıldıkça liste ona göre değişecek tabi.

Ve merak ettiğim bir konu daha var listbox 1 kolon olsa zaten firma isimleri tek olduğu için sadece o firmayı seçsem o firmanın bilgileri userform1deki textboxlara getirebilir miyiz?

Ekte dosyayı bulabilirsiniz.

teşekkür ederim.

 

[mavisachal]

Arkadaşlar yok mu textboxa girilen ilk harfden başlayarak veri süzmenin bir yolu?

 

[Qene]

Formunuzun üzerine bir listbox ekleyin ve aşağıdaki kodları Userformun Kod kısmına yapıştırın.. Bu ilk sorunuzun cevabı..

Private Sub TextBox1_Change()
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 1

For Each isim In Sheet1.Range("B2:B" & Sheet1.Range("B65536").End(xlUp).Row)
    If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
        liste = ListBox1.ListCount
            ListBox1.AddItem
            ListBox1.List(liste, 0) = isim
    End If
Next

End Sub
'
Private Sub UserForm_Initialize()
ListBox1.Clear
    For i = 2 To Sheet1.Range("B65536").End(xlUp).Row
        ListBox1.AddItem Cells(i, 2)
    Next i
End Sub

 

[Qene]

http://excel.web.tr/showthread.php?p=161933#post161933

linki inceleyin, tam size göre bir çalışmam mevcut.. Biraz üzerinde durursanız kendinize uyarlarsınız sanırım..

 

[Orion1]

Merhaba.
İstediğiniz dosya ekteki gibimi?

 

[mavisachal]

çok saolun arkadaşlar herbirinden yararlandım.