Merhaba forumda Sayın @UmitA nın yardımı ile yapılmış olan dosyada kayıt işlemini kayıt sıra numarası vererek nasıl yapabiliriz. Dosya ekliyorum . Kodlarda yazılı olan şu" son = Sayfa1.Range("b65536").End(3).Row + 1"satırdaki B sütununu A olarak değiştirmek yeterli olacak mı? (Kaydet,güncelle, sil) butonları için.
Private Sub btnKaydet_Click()
son = Sayfa1.Range("b65536").End(3).Row + 1
Sayfa1.Range("b" & son).Value = Me.TextBox14
Sayfa1.Range("c" & son).Value = Me.TextBox15
Sayfa1.Range("d" & son).Value = Me.TextBox16
Sayfa1.Range("e" & son).Value = Me.ComboBox5
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.ComboBox5.Value = ""
MsgBox ("Kayıt Tamamlandı"), vbInformation, "Bilgi"
End Sub
Private Sub btnKaydet_Click()
son = Sayfa1.Range("b65536").End(3).Row + 1
Sayfa1.Range("b" & son).Value = Me.TextBox14
Sayfa1.Range("c" & son).Value = Me.TextBox15
Sayfa1.Range("d" & son).Value = Me.TextBox16
Sayfa1.Range("e" & son).Value = Me.ComboBox5
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.ComboBox5.Value = ""
MsgBox ("Kayıt Tamamlandı"), vbInformation, "Bilgi"
End Sub