listbox'tan textbox'a veri getirme sorunu

[monelogg]

Merhaba,

listbox'tan textbox'lara veri getirirken sorun yaşıyorum.
Örnek dosyada da yazdığım gibi 3 sütunluk bir veri var.
Ben textbox'da hiç arama yapmadan listbox'a tıkladığımda doğru değerlere ulaşabiliyorum.
Örnek: A' ya tıkladığım zaman gelen değerler: B ve C
AB'ye tıkladığım zaman gelen değerler: CD ve EF

Yanlız textbox1 de A yazıp arattığım zaman A ve AB'nin sırası değişiyor.
Normalde A 2. sırada, AB de 6. sıradayken arama sonucunda 1 ve 2 olarak değişiyor.

Textbox'a gelen veri de buna göre oluyor.

Yani: A' ya tıkladığım zaman gelen değerler: 1 ve 2
AB'ye tıkladığım zaman gelen değerler: B ve C

Listbox'un click olayına yazdığım kodlar yanlış fakat ne yaptıysam düzeltemedim. Bu konuda yardımcı olabilirseniz sevinirim.

 

[suleyman242]

Merhaba,

listbox'tan textbox'lara veri getirirken sorun yaşıyorum.
Örnek dosyada da yazdığım gibi 3 sütunluk bir veri var.
Ben textbox'da hiç arama yapmadan listbox'a tıkladığımda doğru değerlere ulaşabiliyorum.
Örnek: A' ya tıkladığım zaman gelen değerler: B ve C
AB'ye tıkladığım zaman gelen değerler: CD ve EF

Yanlız textbox1 de A yazıp arattığım zaman A ve AB'nin sırası değişiyor.
Normalde A 2. sırada, AB de 6. sıradayken arama sonucunda 1 ve 2 olarak değişiyor.
Textbox'a gelen veri de buna göre oluyor.
Yani: A' ya tıkladığım zaman gelen değerler: 1 ve 2
AB'ye tıkladığım zaman gelen değerler: B ve C
Listbox'un click olayına yazdığım kodlar yanlış fakat ne yaptıysam düzeltemedim. Bu konuda yardımcı olabilirseniz sevinirim.

listbox üzerine tıkladığında A harfi ikinci sırada ve sat değerini 2 alıyor şayet arama yaptığında mesela "A" hafini aradığında listbox illk değeri A ve sat=1 ikinci değer "AB" ve AB nin listboxtaki sırası 2 ve sat=2 oluyor
İlk listede "AB" nin listboxtaki satır değeri yani sat=6 ;
hata burdan kaynaklanıyor,

 

[suleyman242]

Listbox1' bu şekilde denermisin

Private Sub ListBox1_Click()
'-----------------------
hedef = ListBox1.Value
With Worksheets(1).Range("a1:a500")
Set c = .Find(hedef, LookIn:=xlValues)
End With
sat = c.Row 'ListBox1.ListIndex + 1
'-----------------------------
TextBox2.Text = Sheets("Sayfa1").Range("B" & sat).Value
TextBox3.Text = Sheets("Sayfa1").Range("C" & sat).Value

 

[monelogg]

Teşekkürler suleyman242, kod işimi görüyor.

 

[suleyman242]

Teşekkürler suleyman242, kod işimi görüyor.

Bende teşekkür ederim, kolay gelsin.