TextBoxta Yardım

[damra2005]

ekli dosyadaki TextBox2, TextBox3 ve Text Box4'e verileri nasıl getirebilirm

 

[Haluk]

[vb:1:da0c7ded31]Private Sub ListBox1_Change()
Dim sira As Long
sira = ListBox1.ListIndex + 1
TextBox1 = Range("B" & sira)
TextBox2 = Range("C" & sira)
TextBox3 = Range("D" & sira)
TextBox4 = Range("E" & sira)
End Sub
[/vb:1:da0c7ded31]

 

[abazya]

Sn:damra2005

B5 Te resim'mi vardı. Bende listeyi uzatıp devam edebileceğini anlatmak için ilaveler yapıyordum bıraktım . Ne diyelim kolay gelsin.