comboboxa klasördeki veriyi aldırma listboxta sıralama

[aydın3838]

selamlar

normal şekilde comboya kelimeni ilk harfini yazınca o harfle ilgili
sayfada kaçtane kelime varsa bulup listboxta sıralanıyor

ben bu olayı klasördeki kayıtlı 200 kitaplık bir arşivde kullanmam gerekiyor

mümkünmü acaba

teşekkürler

aranması gereken harf ve rakamdan oluşuyor

 

[aydın3838]

evren hocam müsaitseniz bir baksanız

 

[aydın3838]

başa gelen çekilir kendim yapmaya çalıştım sonuç mükemmel
fakat mause ile çift tıklama ve enterlede geçmem gerekiyor

sadece bulunan ismin listboxta kalması lazım

benim kodda bütünü kalıyor

birde aynı isimde küçük ve büyük harf duyarlılığı lazım

yardım ederseniz sevinirim
kod aşağıda


Private Sub ComboBox1_Change()
ComboBox1 = StrConv(ComboBox1, vbUpperCase)
ListBox1.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ("C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\" & ListBox1.Value)
End Sub

Private Sub UserForm_Initialize()
dosya = Dir("C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\*.xls")

Do While dosya <> ""
ListBox1.AddItem dosya
dosya = Dir
Loop

MyPath = "C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\"
MyFile = Dir(MyPath & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While MyFile <> ""
If MyFile = ThisWorkbook.Name Then GoTo ResumeLoop:
i = i + 1
ComboBox1.AddItem MyFile
MyFile = Dir
ResumeLoop:
Loop
End Sub