verileri düzenle çalışmıyor

[aligedik]

selamlar arkadaşlar forumda arattım ama işime yarar bir örnek bulamadım belki çok basittir ama yapamadım.
düzenle butonu düzgün çalışmıyor.
ekteki dosyaya bakıp bir yardımcı olurmu sunuz.
şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Düzelt butonundaki kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:1189e827c5]Private Sub CommandButton8_Click()
Dim kno As Integer
If adi.Value = Empty Then
MsgBox "Kayıt düzeltme işlemi yapabilmeniz için önce yandaki listeden kaydı seçiniz!", vbExclamation, "Nakit Yazma Programı"
adi.SetFocus
Else
lstpersonel.RowSource = ""
Range("A1").Select
kno = lstpersonel.ListIndex + 2
ActiveCell.Offset(kno, 0).Select
'ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(0, 0).Value = aciklama.Text
ActiveCell.Offset(0, 1).Value = adi.Text
ActiveCell.Offset(0, 2).Value = vergikim.Value
ActiveCell.Offset(0, 3).Value = banka.Text
ActiveCell.Offset(0, 4).Value = hesapno.Text
ActiveCell.Offset(0, 5).Value = vdaire.Text
ActiveCell.Offset(0, 6).Value = e1.Value
ActiveCell.Offset(0, 7).Value = ek1.Text
ActiveCell.Offset(0, 8).Value = e2.Value
ActiveCell.Offset(0, 9).Value = ek2.Text
ActiveCell.Offset(0, 10).Value = e3.Value
ActiveCell.Offset(0, 11).Value = ek3.Text
ActiveCell.Offset(0, 12).Value = e4.Value
ActiveCell.Offset(0, 13).Value = ek4.Text
ActiveCell.Offset(0, 14).Value = e5.Value
ActiveCell.Offset(0, 15).Value = ek5.Text
ActiveCell.Offset(0, 16).Value = e6.Value
ActiveCell.Offset(0, 17).Value = ek6.Text
Range("A1").Select
ActiveWorkbook.Save
End If
UserForm_Initialize
End Sub
[/vb:1:1189e827c5]

 

[aligedik]

teşekkür ederim syn: leventm
sizin bu işe el atacağınızı bekliyordum.
işimi gördünüz. :icelim:
Çok sağolun ellerinize sağlık.