butonla bulma

[talatcd]

Slm arkadaşlar ekli dosyadada göreceğiniz gibi A-Z ye kadar harf butonu var hangi harfin üzerini tıkladığımda ListBoxta o harfle başlayan isimlerin sıralanmasını istiyorum. Saygılarımla kolay gelsin vba şifresi:1970

 

[algil]

Dosyanı zip'leyip gönderebilir misin?

 

[Levent Menteşoğlu]

Bence her harfe bir buton kullanmak yerine harfleri bir comboboxa yerleştirmek daha mantıklı. Ekli dosyayı inceleyin.

 

[talatcd]

Üstad sen bir dahisin Allah gönlüne göre versin ellerine sağlık. Denedim bir sorunum daha var. Combobox la bulup değişiklik yaptığımda 1. satırdakini silip, değişikliği 1. satıra kaydediyor. Bunu nasıl hallederiz.

 

[Levent Menteşoğlu]

Rica ederim. Ben dosyanızın diğer kısımlarına bakmamıştım. Bu istediğinizi yapabilmek için listboxa sıra nosunuda kaydeden bir kolon daha ilave etmek gerekti. (bu kolon ilk sırada olup genişliği sıfır yapıldığından gizlidir) Bu durumdada toplam sütuın sayısı 11 olduğundan additem yöntemi kullanılamaz duruma geldi. Sonuç olarak rowsource yönteminin kullanılması gerektiğinden kodlamanın yapısıda değişmiştir.

 

[talatcd]

Sayın üstadım ellerine sağlık allah razı olsun işte bu. Affına sığınarak bişey daha soracam tümünü göster diye bişey yapabilirmiyiz.

 

[Levent Menteşoğlu]

Yapabilirsiniz elbette, aşağıdaki kodu userform üzerinde bir butona bağlayın.

ListBox1.RowSource = ""
ListBox1.RowSource = "a2:k" & [a65536].End(3).Row