Güncellemedeki Sorun

[İsmail Küçükşengün]

Merhabalar;

Private Sub CommandButton65_Click()
sat = ComboBox1.ListIndex + 2

Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select
ListBox1.RowSource = ""
Cells(sat, "a") = TextBox2.Value
Cells(sat, "b") = TextBox3.Value
Cells(sat, "c") = TextBox4.Value
Cells(sat, "d") = TextBox5.Value
Cells(sat, "e") = TextBox6.Value
Cells(sat, "f") = TextBox7.Value
Cells(sat, "g") = TextBox8.Value
Cells(sat, "h") = TextBox9.Value
Cells(sat, "ı") = TextBox10.Value
Cells(sat, "j") = TextBox11.Value
Cells(sat, "k") = TextBox12.Value
Cells(sat, "l") = TextBox13.Value
UserForm_Activate
End Sub

Kodu ile Userformdaki ComboBox.la seçilip bulunan veriyi değiitirmek istediğimde;

Veri değişmeyip, hemen yanına kare şeklinde dört adet kutucuk ilave olmaktadır.

Nasıl düzeltilebilir.

Şimdiden Teşekkürler...