Icra takip

[polis-53]

İcra giriş bilgileri butonuna girip verileri kayıt yapıyor uyarısı geliyor ama,kaydı yapmıyor sadece sıra no aşağıya atıyor. bi bakarsanız sevinitim.

 

[Excelmy]

Sayın polis-53
Kaydet butonununuza ait kodları aşağıdakiler ile değiştirip kontrol ediniz.

Private Sub Kaydet_Click()
txtSira.Text = WorksheetFunction.Count(Range("A1:A65000")) + 1
With ActiveSheet
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(sat, "A").Value = txtSira.Text
    .Cells(sat, "B").Value = TextBox2.Text
    .Cells(sat, "C").Value = TextBox8.Text
    .Cells(sat, "D").Value = TextBox9.Text
    .Cells(sat, "E").Value = TextBox3.Text
    .Cells(sat, "F").Value = TextBox4.Text
    .Cells(sat, "G").Value = TextBox5.Text
    .Cells(sat, "H").Value = TextBox6.Text
    .Cells(sat, "I").Value = TextBox7.Text
End With
End Sub

 

[polis-53]

arkadaşım çok teşekkür ederim İCRA GİRİŞ BİLGİLERİ ÇALIŞIYOR FAKAT BORÇ ÖDEME GİRİŞİ BUTONUNDA BİR SORUN VAR BUTANA TIKLADIĞIMDA HATA VERİYOR BİR BAKARSANIZ ÇOK SEVİNİRİM