ListBoxa option butonla veri almak ve txtbox

[orhanakdemir]

UserForma üç adet option buton ile süzerek veri alıyorum
Listboxda üç kolon var
Süzme sonucu aldığım listboxtaki bilgilerden hangisi tıklanır ise
o verinin Userformdaki Textboxlara aktarılmasını istiyorum
Formda yaptığım aramada isteğime benzer bir kod var
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ColumnCount - 1
Say = ListBox1.List(ListBox1.ListIndex, i) & " " & Say
Next
TextBox2 = Say
End Sub
Ancak bu kod da Listboxdaki üç kolunu birden Textbox'a yerleştiriyor.
İsteğim her kolondaki veri istediğim txtbox'a yazılsın.
Yardım edecekler için teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Listboxun tıklanan satırındaki verileri, textbox1,textbox2 ve textbox3 e yazılır.

[vb:1:9ae48fc57b]Private Sub ListBox1_Click()
For a = 0 To 2
Controls("textbox" & a + 1) = ListBox1.List(ListBox1.ListIndex, a)
Next
End Sub
[/vb:1:9ae48fc57b]

 

[orhanakdemir]

Sayın leventm; çok teşekkürler hazırlamış olduğun kod tam düşündüğüm şekilde olmuş ellerine sağlık,
Þimdi ben Bu txtboxlara aldığımız verilerde 1 artırma veya 1 eksiltme yaparak
Süzme kriteri uyguladığım sayfadaki kaydında değişiklik yaptırmak için çalışacağım

İyiki varsınız.