Harfleri yazdıkça uyan firmaları süzme

[guneyyilmaz]

Bir hücreye şirket unvanının harflerini yazdıkça kayıtlı firmalar arasında bu harflere uyan firmaların süzülmesini istiyorum. Örnek dosya ekte. Bu konuda yardımlarınızı bekliyorum.

 

[İhsan Tank]

Bir hücreye şirket unvanının harflerini yazdıkça kayıtlı firmalar arasında bu harflere uyan firmaların süzülmesini istiyorum. Örnek dosya ekte. Bu konuda yardımlarınızı bekliyorum.

merhaba
önce E4 hücresini seçin
veri - doğrulama - liste - kaynak bölümüne

=DOLAYLI("H"&KAÇINCI(E4&"*";$H$4:$H$65536;0)+3&":H"&EĞERSAY($H$4:$H$65536;E4&"*")+KAÇINCI(E4&"*";$H$4:$H$65536;0)+2)

bu formülü kopyalayın.
girdi iletisinde hücre seçildikten sonra girdi iletisi göster'in tik'ini kaldırın.
hata uyarısında geçersiz veri girildikten sonra hata uyarısını göster'in tik'ini kaldırın
ardından sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("E4")) Is Nothing Then Exit Sub
Range("H4:H65536").Sort key1:=Range("H4"), ORDER1:=xlAscending
End Sub

bu kodu kopyalayınız. ve deneyin.

 

[Merhum İdris SERDAR]

Bir hücreye şirket unvanının harflerini yazdıkça kayıtlı firmalar arasında bu harflere uyan firmaların süzülmesini istiyorum. Örnek dosya ekte. Bu konuda yardımlarınızı bekliyorum.

.

Dosyanız ekte.

.

 

[guneyyilmaz]

Yardımlarınız için teşekkürler. Her ikinizin de önerilerini denedim. Yurttaş arkadaşın çözüm önerisi tam benim istediğim şekilde. Ancak ComboBox'a firma unvanını yazdıktan sonra Tab veya Enter tuşu ile çıkamıyorum. Mutlaka mouse kullanmam gerekiyor. Acaba bunun bir çözümü var mı?

 

[Merhum İdris SERDAR]

Yardımlarınız için teşekkürler. Her ikinizin de önerilerini denedim. Yurttaş arkadaşın çözüm önerisi tam benim istediğim şekilde. Ancak ComboBox'a firma unvanını yazdıktan sonra Tab veya Enter tuşu ile çıkamıyorum. Mutlaka mouse kullanmam gerekiyor. Acaba bunun bir çözümü var mı?

.

Dosya yukarıda güncellendi.

.