Listbox'ta süzülen verilerde değişiklik yapma

[kdursun]

Listbokta süzülen verilerden seçerek textbox'lara ve combobox'a alıyor ve yaptığım değişiklikleri aşağıdaki kodlarla o verinin üzerine kaydetmeye(Değiştirmeye) çalışıyorum. Ama anladığım kadarıyla seçtiğim verinin index nosuna göre kaydettiği için başka bir veri üzerinde değişiklik yapıyor.

Private Sub Degistir_Click()
Sheets("Veri").Select
Sor = MsgBox("KAYDI DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ?", vbYesNo)
If Sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = WorksheetFunction.Proper(TextBox1.Text)
Cells(sonsat, 3) = WorksheetFunction.Proper(TextBox2.Text)
Cells(sonsat, 4) = WorksheetFunction.Proper(TextBox3.Text)
Cells(sonsat, 5) = WorksheetFunction.Proper(TextBox4.Text)
Cells(sonsat, 6) = WorksheetFunction.Proper(TextBox5.Text)
Cells(sonsat, 7) = WorksheetFunction.Proper(TextBox6.Text)
Cells(sonsat, 8) = WorksheetFunction.Proper(TextBox7.Text)
Cells(sonsat, 9) = WorksheetFunction.Proper(TextBox8.Text)
Cells(sonsat, 10) = Format(CDbl(TextBox9.Value), "#,##0.00000") * 1
Cells(sonsat, 11) = ComboBox1.Value
Cells(sonsat, 12) = Format(CDbl(TextBox10.Value), "#,##0.00") * 1
Cells(sonsat, 13) = Format(CDbl(TextBox11.Value), "#,##0.00") * 1
Cells(sonsat, 14) = Format(CDbl(TextBox12.Value), "#,##0.00") * 1
Cells(sonsat, 15) = WorksheetFunction.Proper(TextBox13.Text)
Cells(sonsat, 16) = WorksheetFunction.Proper(TextBox14.Text)
Cells(sonsat, 17) = WorksheetFunction.Proper(TextBox15.Text)
Cells(sonsat, 18) = WorksheetFunction.Proper(TextBox16.Text)

ListBox1.RowSource = "a2:R" & [a65536].End(3).Row
ActiveWorkbook.Save
MsgBox "KAYIT DEĞİŞTİRİLDİ"

TextBoxTemizle
ComboBox1 = ""
TextBox1.SetFocus
Sheets("Veri").Select

End Sub

Yardımcı olabilirseniz sevinirim.

 

[quesh]

Dosyanızı ekler misiniz?

 

[kdursun]

sonsat = ListBox1.ListIndex + 2
satırını
sonsat = ListBox1.column(0) + 1
olarak değiştirdim sorun çözüldü. İlgilenenlere teşekkürler.