siteden topladığım kodlarla hazıladığım evrak kaydı

[revival1905]

siteden topladığım kodlarla hazıladığım evrak kaydında bazı problemlerim var
mesala kaydet butonuna basınca sıra numarası bir iki sırada artıyor sonra artmıyor, değiştir butonuyla işlem yapınca sıra numaraları karışıyor
bir bakarmısınız lütfen

 

[fedeal]

Kaydet kısmındaki kodlar:

Private Sub Label2_Click()
If TextBox2 = "" Then
MsgBox "İsim Giriniz."
Exit Sub
End If
If Sayfa1.Range("A2").Value = "" Then
Sayfa1.Range("A2").Value = 1
Sayfa1.Range("B2" & s).Value = TextBox2.Text
Sayfa1.Range("C2" & s).Value = TextBox3.Text

s tanımlanmamış.

değiştir kısmındaki kodlar.

Private Sub Label4_Click()
Dim s As Integer
If TextBox2 = "" Then
MsgBox "Önce değiştirmek istediğiniz kaydı seçin!!!", vbExclamation, "ExceL"
Exit Sub
End If
s = MsgBox(TextBox1.Text & " numaralı kayıt değiştirilsin mi?", vbInformation + vbYesNo, "ExceL")
chg = TextBox1.Text + 1
If s = vbYes Then
p = WorksheetFunction.CountA(Sayfa1.Range("A:A"))
Sayfa1.Range("A" & chg).Value = Sayfa1.Range("A" & s).Value + 1

s'e tanımlı deger msgbox'un yanıtı
ilk bakışta gördüklerim,saygılar.

 

[revival1905]

yardım için teşekkür ederim ancak benim bilgim yok denecek kadar az bu kodlarıda siteden derledim.
rica etsem bunu çalışır hale getirebilirmisiniz.

 

[fedeal]

Dosyanız ekte kontorol edemedim deneyin aksaklık olursa düzeltiriz,iyi çalışmalar.

 

[revival1905]

çok teşekkür sayın fedeal
denedim hiçbir sorun çıkmadı elinize sağlık