listbox tan çift tıkla veri almak.Ama 2. sütun değerini

[ismail0160]

Forum da çok arama yaptım ve listbox la ilgili çok şey öğrendim.Emeği geçen herkese çok teşekkürler.Ancak şunu hala bulabilmiş değilim.
Listbox a aldığım onlarca değer var ve bu değerlerden birininin üstüne çift tıklayınca textbox da listbox ın 2. değerinin yer almasını istiyorum.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
textbox1 = ListBox1.Value
End Sub

Kullandığım kod yukarıda.Ancak bu kod birinci sutunün değerini alıyo.
İkinci sütun için ne yapmam gerekiyor.

Yardımcı olacaklara şimdiden teşekkürler.

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.List(1, 1)    
End Sub

 

[ismail0160]

sayın Ripek;sorumu ya ben yanlış anlattım yada siz yanlış anladınız.Şöyle ki;
Ben listbox da bi seçimin üzerine çift tıklayınca,o seçimin ikinci sütununun textbox a yazılmasını isitiyorum.

 

[Zeki Gürsoy]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.List(Listbox1.Listindex, 2)    
End Sub

 

[Recep İpek]

Sn.ismail0160.

Haklısınız.Sorunuzu yanlış anlamışım.

Doğru cevabı Sn.anemos vermiş.

 

[ismail0160]

Arkadaşlar biraz fazla oluyorum ama;
Bu kod şöyle bi hata veriyo.

(could not get the list property.invalid argument)

Kulladığım tüm kodlar aşağıdaki gibi;

Private Sub userform_initialize()
With ListBox1
ListBox1.ColumnWidths = "40;50"
.RowSource = "sayfa1!a1:b15"
.ColumnCount = 2

End With


End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 2)
End Sub


Form çalışıyo ama çift tıklayınca hata veriyo. :???:

 

[Zeki Gürsoy]

Haklısınız şu şekilde deneyin,

Private Sub userform_initialize()
With ListBox1
ListBox1.ColumnWidths = "40;50"
.RowSource = "sayfa1!a1:b15"
.ColumnCount = 2

End With


End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ListBox1.List(ListBox1.ListIndex + 1, 1)
End Sub

 

[ismail0160]

Çok teşekkür edrim Anemos .
Yalnız kod sizin verdiğiniz gibi yazılınca bir alt satırdaki değer Textbox a geliyo.

TextBox1.Value = ListBox1.List(ListBox1.ListIndex + 1, 1)

Kod içindeki +1 silinince çok güzel güzel çalışıyo.

Zaman ayırdığınız için çok teşekkür ederim arkadaşlar.Elleriniz dert görmesin.:hey: