Değiştir işleminde hata

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

Merhabalar;

Tüm forum üyelerine iyi bir hafta dilerim.
Userform üzerinden değiştir işlemini aşağıdaki kod ile yapmak istediğimde; verilerim A56 satırından başlıyor ve devam ediyor. Değiştir butonuna bastığımda, TextBox.lardaki yeni veriler A56 dan itibaren başladığı halde sayfada A4 satırına yazmaktadır. Aşağıdaki kodda ne gibi değişiklik yapılabilir.

Private Sub CommandButton2_Click()
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("veri").Select
ListBox1.RowSource = ""
Cells(sat, "a") = TextBox1.Value
Cells(sat, "b") = TextBox2.Value
Cells(sat, "c") = TextBox3.Value
Cells(sat, "d") = TextBox4.Value
Cells(sat, "e") = TextBox5.Value
Cells(sat, "f") = TextBox6.Value
Cells(sat, "g") = TextBox7.Value
Cells(sat, "h") = TextBox8.Value
userform_activate
End Sub

Şimdiden teşekkürler...

 

[zafer]

Merhaba


sat = ListBox1.ListIndex + 2

Burada satır numarasını +2 ile hücreleriniz 2. satırdan başlıyacakmış gibi göstermişsiniz.

56. satırdan başlıyorsa

sat = ListBox1.ListIndex + 56 olarak değiştirin.

 

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

Sayın zafer;

İlginize TEŞEKKÜRLER.
Böyle sora sora öğreneceğiz. k::