ListBox'ta Seçili halin iptali

[htsumer]

Userformda listbox hazıladım.Listboxun listesinde 1.sırayı tıkladım ve seçili kaldı.Userformu çalıştırdığımda listboxda 1.sıra seçili geliyor.
Bu seçili olma halini nasıl kaldırabilirim.

 

[security]

örneek dosya eklermisiniz..

 

[htsumer]

DOsya çok geniş ve büyük ben ekleyemem,

Şöyle listbox tıklanarak seçiliyor çalıştığında 1.sıra seçili halde görünüyor ve tıkladığında çalışmıyor başka yeri yıklayıp sonra 1.sırayı tıklayabiliyorum.

 

[Korhan Ayhan]

Selamlar,

En azından UserFormunuzun Inialitize ya da varsa Activate kodlarını buraya eklerseniz inceleme fırsatımız olabilir.

 

[htsumer]

ListBox'un RowSource özelliğine yazılı İnitiailize kısmında yok..

 

[Korhan Ayhan]

Selamlar,

Bu seçim işleminin RowSource ile bir alakası yok. Bu sebeple kodlarınızı ekleyin demiştim.

Formunuz açılırken bir şekilde ListBox nesnesi seçiliyor. Eğer bu formunuzun açılış kodlarında ise bu kodu silmelisiniz. Ya da formunuzun tab order özelliğinde ListBox nesnesi seçilecek şekilde ayarlanmıştır. Eğer böyle ise kod editörü penceresinde formunuzun üzerinde sağ klik yapın. Açılan menüden "Tab Order" seçeneğini seçin. Karşınıza formunuzun üzerindeki nesnelerin listesi gelecektir. Bu listede ListBox nesnesi en üst satırda ise alt satırlara kaydırıp öyle deneme yapın.

Eğer sorun bunlardan kaynaklanmıyorsa lütfen bir önceki mesajımda bahsettiğim kodlarınızı foruma ekleyin.

 

[htsumer]

Userin TabOrderinde listbox varmış onu aşağılara kaydırdım ama olmadı..

Bakın Listboxu ekleyin userin üzerine ve listbooxa veriler aldırın daha sonra listboxun üzerini bir kere tıklayın içeriği işartelenek hangisini işaretlersek o aktif oluyor..Yukardaki resimde eğer çalışma editöründe 2.satırı tıklayıp gri renk verseydim bu seferde user her çalıştığında 2.satır seçili geliyor..
Listboxun tabindexi 0 seçili 3 yapsam 3.satırı seçili oluyor..Anlatamadım galiba

Inialitize ya da Activate kodları yok..

 

[Korhan Ayhan]

Selamlar,

Özel mesajla yolladınız dosyanızı inceledim. ListBox nesnesinin Properties (Ayarlar) penceresindeki RowSource bilgisini silin. Formunuzun Initialize kodu aşağıdaki şekilde değiştirip deneyin.

Private Sub UserForm_Initialize()
    OptionButton8.Caption = Sheets("Parametreler").Range("b1")
    OptionButton9.Caption = Sheets("Parametreler").Range("b2")
    OptionButton10.Caption = Sheets("Parametreler").Range("b3")
    ListBox1.RowSource = "kütük!A2:T5000"
End Sub

 

[htsumer]

Delirecem şimdi ben bunu daha önce denemiştim..Şimdi oldu..

Çok teşekkür ederim Korhan bey..