Arama yapmak için harf girildikçe süzme yapma.

[Mahmut Kök]

MEB'e bağlı, yaklaşık 51.500 adet kurum listesi var. Okullara ait bilgiler, listemde "KURUM KODU", "İLİ", "İLÇESİ", "OKUL ADI", "ADRESİ" ... şeklinde sıralanmış durumda. Çalışmamız gereği okul kodlarının girilmesi gerekiyor; ancak birçok arkadaşımız, okullarının kodunu bilmiyor veya o anda hatırlayamıyor.

Yapmak istediğim, Kullanıcı formu (UserForm) üzerinde 3 farklı arama / süzme seçeneği oluşturmak. (İl-İlçe-Okul adı) İl kısmına "A" yazınca "A" ile başlayan şehirleri, ilçelerini, okullarını ve kodlarını aşağıdaki listeye sıralasın. "AD" yazınca ilk 2 harfi "AD" olan şehirleri sıralasın;Listede "AD" ile başlayan şehirler sıralanmışken, ilçe kısmına "S" yazınca da, süzülmüş liste içinden bu kez de "S" ile başlayan ilçeleri listelesin; ilçe ve okul adı için de aynı durum söz konusu, en önemlisi okul adı.

Eğer aynı anda 3 seçenek olmazsa bile en azında okul adına göre böyle bir arama ve listeleme yaptırabilirsek çok iyi olacak benim için. Textbox'a "Mehmet" yazınca "Mehmet" ile başlayan okullar, "Mehmet Kemal" yazınca da "Mehmet Kemal" ile başlayan okullar, il, ilçe ve kodlarıyla birlikte listbox'ta sıralansın istiyorum.

Forumda bununla ilgili bir konu buldum; fakat "Leventm" tarafından gönderilen örnek dosyaya ulaşamadım, galiba kaldırılmış. Yardımlarınızı sabırsızlıkla bekliyorum, hepinize iyi çalışmalar dilerim.

 

[Ali]

Sn yurttasın bu konu ile ilgili bir çalışması var aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=19034

 

[Mahmut Kök]

Budur. !


Çok sağolun, çok teşekkür ederim.

 

[programer]

bende uzun zamandır böyle bir örnek arıyordum paylaşımınız için sağolun

 

[mustafa golek]

sevgili yurttaş uygulama muhteşem olmuş ..bir şey sorma istiyorum aralık düzenlemesine izin verilmiş ve korunmuş bir sayfada bu kod çalışmıyor..Nasıl olacağı hakkında bilgilenmek istiyorum...

şimdiden teşekkürler..

 

[mustafa golek]

arkadaşlar ,

aralık düzenlemesine izin verilmiş ve korunmuş bir sayfada bu kod çalışmıyor..Nasıl olacağı hakkında bilgi verirmisiniz lütfen..Harf harf araa konudunu aktif olarak kullanıyorum fakat Formu hem paylaştırmam hem de korumam gerekiyor korumadan çalışamıyorum..

acil yardım lütfen

 

[mustafa golek]

arkadaşlar,

formu güvenliğini sağlamakta zorlanıyorum sayfayı kilitlediğim de ise harf harf süzme yapamıyorum ..korumalı sayfada kod nasıl çalışır..acil bilgi lütfen ...

 

[Merhum İdris SERDAR]

arkadaşlar,

formu güvenliğini sağlamakta zorlanıyorum sayfayı kilitlediğim de ise harf harf süzme yapamıyorum ..korumalı sayfada kod nasıl çalışır..acil bilgi lütfen ...

Kodların başına:

ActiveSheet.Unprotect

Kodların sonuna:

ActiveSheet.Protect

Örnek:

Private Sub TextBox2_Change()

ActiveSheet.Unprotect

Application.ScreenUpdating = False
On Error Resume Next
METİN1 = TextBox2.Value
Set FC2 = Range("B7:J65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If

ActiveSheet.Protect

End Sub.

Eğer şifre varsa:

ActiveSheet.Unprotect ("şifreniz")


Şifreyi tekrar koymak için kodların sonuna;

ActiveSheet.Protect ("Şifreniz")

.

 

[mustafa golek]

yurttaş teşekkür ederim korunmuş kitapta gayet güzel çalışıyor..bu sorun çözüldü fakat kitabı paylaştırınca hata veriyor..çalışmıyor..
korunmuş sayfada çalışırsa paylatşrılmışta da çalışır zannettim ama öyle olmuyormuş.. yine kitabı kullanamıyorum anlayacağınıızz...

 

[Merhum İdris SERDAR]

yurttaş teşekkür ederim korunmuş kitapta gayet güzel çalışıyor..bu sorun çözüldü fakat kitabı paylaştırınca hata veriyor..çalışmıyor..
korunmuş sayfada çalışırsa paylatşrılmışta da çalışır zannettim ama öyle olmuyormuş.. yine kitabı kullanamıyorum anlayacağınıızz...

Yanımıyorsam. Makrolar paylaştırılmış dosyada çalışmazlar.

Veya nasıl çalışacaklarını ben bilmiyorum. Bilen varsa bunu açıklarsa ben de öğrenmiş olurum.

.

 

[dennisf06]

Sn Yurtas hocam benimde size bir sorum olacakti. yaptiginiz uygulamayi kendi dosyama uyarlamaya calistim ama söyle bir problemle karsilastim. verileri asgiya dogru girerken ( veriler cok fazla oldugu icin ) bölmeleri dondurup üst kismi sabitledim. daha sonra süzme islemi yapinca süzme islemi görülmüyor. yani islemi aslinda yapiyor ama ekranda göremiyorum. bunun icin tekrar bölmeleri cözmem gerekiyor. bu sorunu nasil asabilirim acaba. tesekkür ederim. saygilarimla.

 

[Merhum İdris SERDAR]

Sn Yurtas hocam benimde size bir sorum olacakti. yaptiginiz uygulamayi kendi dosyama uyarlamaya calistim ama söyle bir problemle karsilastim. verileri asgiya dogru girerken ( veriler cok fazla oldugu icin ) bölmeleri dondurup üst kismi sabitledim. daha sonra süzme islemi yapinca süzme islemi görülmüyor. yani islemi aslinda yapiyor ama ekranda göremiyorum. bunun icin tekrar bölmeleri cözmem gerekiyor. bu sorunu nasil asabilirim acaba. tesekkür ederim. saygilarimla.

Dosyanızı açamıyorum.

.

 

[dennisf06]

tekrar ekliyorum

 

[ofbalki]

Uygulama sorunu.

Sayın yurttaş, rica etsem ekli dosyaya şu arama işini uygulatabilirmiyiz.

Ben beceremedim de.

Hayırlı Ramazanlar.