listboxda listeleme

[drkdrk]

arkadaşlar uzun uğraşlar sonucunda bir kod üreterek çözümü ürettim. lazım olabilir diyerek kodları ekliyorum umarım işinize yarar. Bu sayede farklı satırlardan aldığınız verileri bu kod yardımı ile bulup ilgili satırını seçebilirsiniz.

Private Sub ListBox1_Click()

On Error Resume Next

Dim textbox, ara, sayi As Variant
ara = ListBox1.Value
sayi = Val(ara)
Set txt = Range("A:A").Find(sayi)
txt.Select
Call verialrafno
end sub

Sub verialrafno()

TextBox1.Value = ActiveCell.Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = Format(ActiveCell.Offset(0, 2).Value, "dd.mm.yyyy")
TextBox4.Value = ActiveCell.Offset(0, 9).Value
TextBox5.Value = ActiveCell.Offset(0, 11).Value
TextBox6.Value = ActiveCell.Offset(0, 13).Value
TextBox7.Value = ActiveCell.Offset(0, 19).Value
TextBox8.Value = ActiveCell.Offset(0, 15).Value
TextBox9.Value = ActiveCell.Offset(0, 17).Value
TextBox10.Value = ActiveCell.Offset(0, 31).Value
TextBox11.Value = ActiveCell.Offset(0, 29).Value
TextBox12.Value = ActiveCell.Offset(0, 21).Value
TextBox13.Value = ActiveCell.Offset(0, 37).Value
TextBox14.Value = ActiveCell.Offset(0, 33).Value
TextBox15.Value = ActiveCell.Offset(0, 35).Value
TextBox16.Value = ActiveCell.Offset(0, 25).Value
TextBox17.Value = ActiveCell.Offset(0, 39).Value
TextBox18.Value = ActiveCell.Offset(0, 23).Value
TextBox19.Value = ActiveCell.Offset(0, 27).Value
TextBox20.Value = ActiveCell.Offset(0, 7).Value
TextBox21.Value = Format(ActiveCell.Offset(0, 3).Value, "dd.mm.yyyy")
TextBox22.Value = Format(ActiveCell.Offset(0, 6).Value, "dd.mm.yyyy")

End Sub