yeni katıt ekle ve sil butonları

[bursacem]

arkadaşlar herkese kolay gelsin;

userform a verileri girdikten sonra kaydet butonu tıklayarak veriler excel sayfasına aktarıyorum.Fakat yeni verileri girmem için userformu kapatıp açmam gerekiyor.ancak böyle sayfayı temizleyebiliyorum.yapmak istediğim yeni kayıt ekle butonu oluşturarak sayfayı veri girilecek hale getirebilmek.Ayrıca kayıt sil dediğimde de yarım bıraktığım girişleri silebilsin.
şimdiden emeği geçenlere teşekkürler

 

[cenk e.]

Merhaba, kaydet butonu kodlarının altına msgbox'tan sonra
Textbox1.Text=""
Combobox1.Value=""
şeklinde ihtiyacınız kadar yazarak temizlemeyi otomatik hale getirebilirsiniz.

 

[antonio]

arkadaşlar herkese kolay gelsin;

userform a verileri girdikten sonra kaydet butonu tıklayarak veriler excel sayfasına aktarıyorum.Fakat yeni verileri girmem için userformu kapatıp açmam gerekiyor.ancak böyle sayfayı temizleyebiliyorum.yapmak istediğim yeni kayıt ekle butonu oluşturarak sayfayı veri girilecek hale getirebilmek.Ayrıca kayıt sil dediğimde de yarım bıraktığım girişleri silebilsin.
şimdiden emeği geçenlere teşekkürler

Kaydet butonunun kodlarını bunlarla değiştiriniz

Private Sub CommandButton1_Click()
    Dim SonSat As Long
    Sheets("veri").Select
    SonSat = Cells(Rows.Count, "A").End(3).Row + 1
    If SonSat < 1 Then SonSat = 1
    Range("A" & SonSat).Select
    ActiveCell.Offset(0, 0).Value = TextBox1.Value
    ActiveCell.Offset(0, 1).Value = TextBox18.Value
    ActiveCell.Offset(0, 2).Value = ComboBox10.Value
    ActiveCell.Offset(0, 3).Value = ComboBox1.Value
    ActiveCell.Offset(0, 4).Value = ComboBox2.Value
    ActiveCell.Offset(0, 5).Value = ComboBox3.Value
    ActiveCell.Offset(0, 6).Value = ComboBox4.Value
    ActiveCell.Offset(0, 7).Value = ComboBox5.Value
    ActiveCell.Offset(0, 8).Value = ComboBox6.Value
    ActiveCell.Offset(0, 9).Value = ComboBox7.Value
    ActiveCell.Offset(0, 10).Value = ComboBox8.Value
    ActiveCell.Offset(0, 11).Value = ComboBox9.Value
    
For i = 1 To 10
Controls("Combobox" & i) = ""
Next i
TextBox1.Value = ""
TextBox18.Value = ""
Sheets("veri").Select
Range("A1").Select
  
    MsgBox "Kayit islemi Tamamlandi", vbInformation
    
End Sub