Değiştir işleminde hata

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

Merhabalar;

Userformdaki combo.dan bul ile bulduğum kişilere ait verilerde değişiklik yapmak için aşağıdaki kodu kullanıyorum.

sat = ComboBox1.ListIndex + 1
Cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("liste").Select
Cells(sat, "a") = TextBox2.Value
Cells(sat, "b") = TextBox3.Value
Cells(sat, "c") = TextBox4.Value
.......................................
.........................................
Cells(sat, "bh") = TextBox62.Value
Cells(sat, "bı") = TextBox63.Value
UserForm_Activate
End Sub

Değişmesini istediğim bilgiler, liste sayfasının 2. satırından itibaren başlıyor. 1.satırda sütun başlıkları var.

Fakat değiştir butonuna bastığımda, bazen veriler, 1. satıdaki sütun başlıklarını silip üzerine yazmaktadır.
Kodda Ne gibi bir değişiklik uygun olur.

Şimdiden teşekkürler.

 

[abdi]

Sayın kucuksengun,

sat = ComboBox1.ListIndex + 1

satırını

sat = ComboBox1.ListIndex + 2

yapıp denermisiniz

 

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

Sn. Abdi.

sat = ComboBox1.ListIndex + 2 - Buradaki 2 rakamı, herhalde verilerin 2. satırdan itibaren başladığını belirtiyor, değil mi?

Bu acemilikle, bir de program yapmaya çalışıyorum.

Teşekkürler. :hey:

 

[abdi]

önemli değil işinize yaradığına sevindim

Çalışmalarınızda Başarılar Dilerim.