LİNDA
Gold Üye
- Katılım
- 4 Haz 2021
- Mesajlar
- 269
- Çözümler
- 1
- Aldığı beğeni
- 90
- Excel V
- Office 2019 TR
- Gold Bitiş
- 15 Nisan 2026
Konu Sahibi
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
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Sizede Kolay gelsin.
