Tasarladığınız formdaki kutucuklara girilen verileri, bir "Kaydet" butonuyla Excel'deki veritabanının en alt satırına ekleyelim.
Kod Mantığı
Önce tablodaki ilk boş satırı bulmalıyız. Sonra formdaki verileri o satıra eşitlemeliyiz.
Örnek Kod (Kaydet Butonu İçin)
Dim BosSatir As Long
'A sütunundaki son dolu satırın bir altını bul
BosSatir = Range("A" & Rows.Count).End(xlUp).Row + 1
'Verileri aktar
Cells(BosSatir, 1).Value = TextBox_Ad.Text
Cells(BosSatir, 2).Value = TextBox_Soyad.Text
MsgBox "Kayıt Başarılı!"
TextBox_Ad.Text = "" 'Kutuyu temizle
'A sütunundaki son dolu satırın bir altını bul
BosSatir = Range("A" & Rows.Count).End(xlUp).Row + 1
'Verileri aktar
Cells(BosSatir, 1).Value = TextBox_Ad.Text
Cells(BosSatir, 2).Value = TextBox_Soyad.Text
MsgBox "Kayıt Başarılı!"
TextBox_Ad.Text = "" 'Kutuyu temizle
Bu kodla, form üzerinden sonsuz sayıda veri girişi yapabilirsiniz.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap