Açılır Menüde basılan harfe gitme

[noxious]

ekte örneğini sunduğum dosya içerisinde İller isimli bir açılır liste yaptım hazırladığım belgeme ekleyeceğim ancak 81 il içerisinde arama yaparken aşağı yukarı kaydırma yerine sadece A harfine bastığımda A ile başlıyan E harfine bastığımda E ile başlıyan İllerin hizasına gitse büyük kolaylık olacak bunu diğer belgelerimede işleyeceğim bu konuda yardımlarınızı bekliyorum

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Validation ile olusturulmuş listede harfe göre veri getirsin

 

[noxious]

Hocam tam demek istediğim böyle değildi buda işimi görebilir ama hani web sayfalarında olurya aşağı doğru liste şeklinde c ye basınca aynı liste durur ama ilk c ile başlıyana gider benim istediğimde öyle liste başka yere taşınmayacak sadece aynı liste içerisinde benim bastığım harfin bulunduğu satıra inecek ola ki hatalı harfe bastığımızda tekrar lamıyalım işlemi

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[noxious]

Sayın Orion2 hocam işlem istediğim gibi olmuş ama mantığını anlıyamadım açıklama yapabilirmisin

Ayrıca B3 hücresine hangi ili seçersem B4, B5 .... o ilde kalıyor aşağı doğru diğer hücrelerde aynı işlem farklı iller için yapılabilir olmalı. B3 Denizli iken B4 Ankara, B5 Eskişehir ...vs olabilir yani aşağıya indikçe girilen verilerde değişkenlik söz konusu olacak ve yaptığım çalışmada girilecek veri yaklaşık 15.000 kadar yani anlayacağın form bittiğinde el çabukluğu yapıp verileri bir an önce girmeye başlayacağız

 

[Orion1]

Ekli dosyayı inceleyiniz.
Ekle==> Ad ==>Tanımlaya bakınız veri doğrulamada Vilayet adlı alan listeleniyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hucre As Range, sat As Long
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Set s1 = Sheets("Listesi")
sat = 2
Application.ScreenUpdating = False
s1.Range("B2:B65536").ClearContents
For Each hucre In s1.Range("A2:A" & s1.Cells(65536, "A").End(xlUp).Row)
    If LCase(hucre.Value) Like LCase(Target.Value) & "*" Then
        s1.Cells(sat, "B").Value = hucre.Value
        sat = sat + 1
    End If
Next
Set s1 = Nothing
Application.ScreenUpdating = True
End Sub