- Katılım
- 17 Ağustos 2004
- Mesajlar
- 222
- Excel Vers. ve Dili
-
Ofiste Excel 2000 Türkçe
Evde Excel 2003 Türkçe
ListBoxta Ok ve Enter Tuşu Ãle Seçim
Kodları ile textboxtaki isime göre ListBox doluyor listboxtan fare ile seçtiğim isim textboxa geliyor.Fare ile seçmeden Enter Tuşu ile ListBoxa geçip yön tuşları ile ismi seçip TextBoxa alabilirmiyiz.
Kod:
Private Sub ad_Change()
Dim MyRange As Range
Dim noA As Integer
ListBox2.Clear
noA = WorksheetFunction.CountA(Sheets("SAYFA1").Range("A:A"))
For Each MyRange In Sheets("SAYFA1").Range("A1:A" & noA)
If Left(LCase(MyRange), Len(ad)) = LCase(ad) Then ListBox2.AddItem (MyRange)
Next
ad = büyük(ad)
End Sub
Private Sub ListBox2_Click()
ad.Value = ListBox2
End Sub