Listbox güncelleme sorunu k

[chakistes]

merhaba arkadaşlar formda güncelleme butonu ile ekranda değişiklik yapıyor fakat programdan çıkıp yeniden girdiğimizde eski haline dönüyor

sat = ListBox1.ListIndex + 2
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("KAYIT").Select
ListBox1.RowSource = ""
Cells(sat, "A") = Textbox1.Value
Cells(sat, "B") = ilce.Value
Cells(sat, "C") = MUDUR.Value
Cells(sat, "D") = TextBox2.Value
Cells(sat, "E") = TextBox3.Value
Cells(sat, "F") = TextBox4.Value
Cells(sat, "G") = TextBox5.Value
Cells(sat, "H") = Textbox6.Value
Cells(sat, "I") = TextBox7.Value
Cells(sat, "J") = TextBox8.Value
Cells(sat, "K") = TextBox9.Value
Cells(sat, "M") = TextBox10.Value
Cells(sat, "L") = firma1.Value
Cells(sat, "N") = TextBox11.Value
Cells(sat, "O") = firma2.Value
Cells(sat, "P") = TextBox12.Value
Cells(sat, "Q") = firma3.Value
Cells(sat, "R") = TextBox13.Text

UserForm_Initialize
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"

 

[turist]

Userform'unuzun "Private Sub UserForm_Initialize()" kısmında yazanlar önemlidir.Tekrar açıldığında bu kısım çalışacağı için; kodlarınızı gözden geçiriniz.
Başka kodların çalışması da etkili olabilir.
Örnek excel dosyanızı eklerseniz, daha kolay ve hızlı cevap bulabilirsiniz.

 

[chakistes]

commandbutona ekledim


ActiveWorkbook.Save bu şekilde yapında kayıt ediyor
Sheets("KAYIT").Select bu şekilde olunca ekranda değişiklik yapılıyor çıkış yapılınca eski halinde dönüyor

 

[turist]

Örnek excel dosyanızı eklerseniz, daha kolay ve hızlı cevap bulabilirsiniz.