TextBox ile Listbox da C:\ dizindeki dosyaları alfabetik süzme

[ikikan]

Çok araştırdım ama genelde sayfa içindeki verilerin süzüldüğü kodlar var
Örnek olarak
TextBox : A yazdıgımda C:\ dizindeki veya
Listbox un içinde bulunan verilerin A ile başlayanları görünsün
BE yazdıgımda ...
ama veriler sayfanın içinde değil dosya veya Listbox içinden alsın

Aşağdaki kod sadece a yazınca a ile başlayanlara gidiyor listbox u süzmüyor bun ?


Option Compare Text
Private Sub TextBox1_Change()
Static ListBoxRow As Integer
If Len(TextBox1.Text) <> 0 Then
For i = ListBoxRow To ListBox1.ListCount - 1
If Mid(ListBox1.List(i), 1, Len(TextBox1.Text)) = TextBox1.Text Then
ListBoxRow = i
ListBox1.Selected(i) = True
Exit For
End If
Next i
Else
ListBoxRow = 0
End If
End Sub

 

[ikikan]

Private Sub TextBox1_Change()
Dim sat As Integer
On Error Resume Next
ListBox1.Clear
For sat = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(sat, "a") Like (TextBox1) & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Split(Cells(sat, "a"), ".")(0)
s = s + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim dosya As Variant
[a1:A65000] = Empty
Set KartP = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path
Set klasor = KartP.GetFolder("" & yol & "\KartP")
Set dongual = klasor.Files
For Each dosya In dongual
s = s + 1
Cells(s, 1) = dosya.Name
Next
'*****
TextBox1 = ".": TextBox1 = ""
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open "E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & ListBox1.Value

End Sub
Private Sub faraiptal_Click()
Me.Hide
PGiris.Show
End Sub


aradım ve amacıma ulaştım arkadaşlar ihdiyacı oaln olursa kodlar bunlar ve işe yarıyor kolay gelsin

 

[ikikan]

Textbox arama da küçük büyük harf sorunu

Arkadaşlar aşadaki kod ile klasör içindeki dosya isimlerini arama yaptıra biliyorum
ayrıca ek bir kod ile sadece büyük veya küçük harfle arama yapabiliyorum

1-fakat ikisini aynı anda yaptıramıyorum örnek olarak
" a " yazdık diyelim
ahmet çıkıyor
ADANA çıkmıyor

2- ama formu çalıştırdıgımızda o anki aktif sayfaya verileri atıyor
veri diye bir sayfa oluşturup verileri direk oraya yazdırmamız mümkünmü

ekte dosya eklidir..


Private Sub TextBox1_Change()
Dim sat As Integer
On Error Resume Next
ListBox1.Clear
For sat = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(sat, "a") Like (TextBox1) & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Split(Cells(sat, "a"), ".")(0)
s = s + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim dosya As Variant
[a1:A65000] = Empty
Set KartP = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path
Set klasor = KartP.GetFolder("" & yol & "\KartP")
Set dongual = klasor.Files
For Each dosya In dongual
s = s + 1
Cells(s, 1) = dosya.Name
Next
'*****
TextBox1 = ".": TextBox1 = ""
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

End Sub
Private Sub faraiptal_Click()
Unload fara
End Sub