- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-05-2022
Selam Arkadaşlar
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("kayit").Activate
End If
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
UserForm Üzerinden kayıt Yapıyorum ama Aktif olan hücreye yazıyor benim istediğim en son kayıt yapılanın altına yazsın
teşekürler
imdat saral
izmir
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("kayit").Activate
End If
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox6.Value
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
UserForm Üzerinden kayıt Yapıyorum ama Aktif olan hücreye yazıyor benim istediğim en son kayıt yapılanın altına yazsın
teşekürler
imdat saral
izmir