listbox'da süzülen değerleri textbox'a aktarırken istediğim sıra gelmiyor.

[mücahitayan]

Merhaba arkadaşlar...


---------------------------------------------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


BSN = ListBox1.ListIndex + 3

TextBox1.Value = Sheets("İŞLEM").Range("A" & BSN).Value


End sub

---------------------------------------------------------------


Eğer Listem'in RowSource kısmı "işlem" sayfasının a3 satırından a65536 satırına kadar süzüpte içinde değer olanları gösterirse ve bu değer üzerinden "ListBox1_DblClick" yapılırsa herhangi bir sorun olmuyor.



fakat row source değişirse yani aynı sayfa üzerinde fakat bazı değerlere aşağıdaki gibi süzme yapıyorum

--------------------------------------------------------------------------
ListBox1.RowSource = vbNullString
For i = 3 To Sheets("İŞLEM").Cells(65536, "A").End(xlUp).Row
If Sheets("İŞLEM").Cells(i, "A").Value = ComboBox19.Value Then
If Sheets("İŞLEM").Cells(i, "d").Value >= DTPicker11.Value Then
If Sheets("İŞLEM").Cells(i, "d").Value <= DTPicker12.Value Then
ListBox1.AddItem
ListBox1.Column(0, X) = Sheets("İŞLEM").Cells(i, "A").Value
ListBox1.Column(1, X) = Sheets("İŞLEM").Cells(i, "B").Value
ListBox1.Column(2, X) = Sheets("İŞLEM").Cells(i, "C").Value
ListBox1.Column(3, X) = Format(Sheets("İŞLEM").Cells(i, "D").Value, "DD.MM.YYYY")
ListBox1.Column(4, X) = Sheets("İŞLEM").Cells(i, "E").Value
ListBox1.Column(5, X) = Format(Sheets("İŞLEM").Cells(i, "F").Value, "#,##0.00")
ListBox1.Column(6, X) = Format(Sheets("İŞLEM").Cells(i, "G").Value, "#,##0.00")
ListBox1.Column(7, X) = Sheets("İŞLEM").Cells(i, "H").Value
ListBox1.Column(8, X) = Sheets("İŞLEM").Cells(i, "I").Value
X = X + 1
End If
End If
End If
Next i
-----------------------------------------------------------------------



süzme sonucunda dbclick özelliği süzdüğü satırdaki değeri değilde İşlem sayfasının seçtiğim satırdaki değerini giriyor. buna bir çözüm bulabilir miyiz acaba?

ne yapmalıyım.


yardımcı olabilecek tüm uzman arkadaşlara ve katılımcılara teşekkür ederim.

 

[Orion1]

Merhaba arkadaşlar...


---------------------------------------------------------------
-----------------------------------------------------------------------
süzme sonucunda dbclick özelliği süzdüğü satırdaki değeri değilde İşlem sayfasının seçtiğim satırdaki değerini giriyor. buna bir çözüm bulabilir miyiz acaba?

ne yapmalıyım.


yardımcı olabilecek tüm uzman arkadaşlara ve katılımcılara teşekkür ederim.

Listboıxa bir kolon daha ekelyin.

ListBox1.Column(9, X) = i

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


BSN = clng(ListBox1.column(9))

TextBox1.Value = Sheets("İŞLEM").Range("A" & BSN).Value


End sub

 

[mücahitayan]

sevgili evren mükemmelsin ya


kodu okudum okudum anlamadım ama dedim bir bildiği vardır yazayım kodu dedim



yazdım ve oldu )


ama cidden anlayamadım nasıl yaptığını .


çookk teşekkür ederim.

 

[Orion1]

sevgili evren mükemmelsin ya


kodu okudum okudum anlamadım ama dedim bir bildiği vardır yazayım kodu dedim



yazdım ve oldu )


ama cidden anlayamadım nasıl yaptığını .


çookk teşekkür ederim.

Çok basit , veriyi aldığınız satırın numarasını listboxa alıyorsunuz.
Veriyi textboxa alırkende direk satır numarasına göre alıyorsunuz.Rowsource yönteminin dışında kullnılan veri alma yöntemleri içinde ,En güveli yöntemdir.
İyi çalışmalar.

 

[mücahitayan]

hymm anladım tamam. tekrar çok teşekkür ederim.

 

[Orion1]

hymm anladım tamam. tekrar çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.