Userform da Degisiklikleri Kaydet Sorunu

[kadir_2010]

Herkese Merhabalar,

Hazirlamaya çalistigim evrak takip programinda userform da listbox ve Textboxlar olusturdum,
Listboxtaki seçime göre sekillenen textboxlarda yaptigim degisiklikleri kaydetmek için bir button
olustudum ama sorun su ki sadece 1. textboxtaki kaydi degistiriyor, digerleri eskisi gibi kaliyor.
Forumdaki Konuyla alakalı örnekleri de inceledim ama zaten yazdığım kodda bir sorun göremiyorum işte sorun burda
Incelemeniz için dosyayi ekliyorum. Ilgilenen arkadaslara simdiden tesekkürler...

 

[fedeal]

Merhaba, kodlarda bir problem yok sadece listboxtan veri alma işlemini DblClick olayına alın düzelecektir.iyi çalışmalar.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
Bulunan_Satir_No = ListBox1.ListIndex + 2
TextBox1.Text = ListBox1.Column(1)
TextBox2.Text = ListBox1.Column(4)
TextBox3.Text = ListBox1.Column(5)
TextBox4.Text = ListBox1.Column(2)
TextBox5.Text = ListBox1.Column(8)
TextBox6.Text = ListBox1.Column(9)
TextBox7.Text = ListBox1.Column(16)
TextBox8.Text = ListBox1.Column(17)
For i = 2 To Cells(65536, "H").End(xlUp).Row
If Cells(i, "A") = ListBox1.Column(0) Then
TextBox9.Text = Cells(i, "D")
TextBox10.Text = Cells(i, "G")
TextBox11.Text = Cells(i, "H")
End If
Next i


TextBox12.Text = ListBox1.Column(12)
TextBox13.Text = ListBox1.Column(13)
TextBox14.Text = ListBox1.Column(10)
TextBox15.Text = ListBox1.Column(11)
TextBox16.Text = ListBox1.Column(14)
TextBox17.Text = ListBox1.Column(18)
TextBox18.Text = ListBox1.Column(15)
TextBox19.Text = ListBox1.Column(19)
TextBox20.Text = ListBox1.Column(20)
End Sub

 

[kadir_2010]

Çok teşekkürler ilginiz için, iyi çalışmalar...