İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
Private Sub CommandButton56_Click()
Dim deneme As Integer
deneme = Application.CountA(Sheets("liste").Columns("A")) + 1
Sheets("liste").Cells(deneme, 1) = Label7
Sheets("liste").Cells(deneme, 2) = TextBox1.Text
Sheets("liste").Cells(deneme, 3) = TextBox2.Text
Sheets("liste").Cells(deneme, 4) = TextBox3.Text
Sheets("liste").Cells(deneme, 5) = TextBox4.Text
Sheets("liste").Cells(deneme, 6) = TextBox5.Text
Sheets("liste").Cells(deneme, 7) = TextBox6.Text
Sheets("liste").Cells(deneme, 8) = DTPİcker5
Sheets("liste").Cells(deneme, 9) = TextBox7.Text
Label7 = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
DTPİcker5 = ""
TextBox7.Text = ""
Kodu ile liste sayfasına kayıt yaptırıyorum.
Fakat altı çizgili olan (DTPicker.5) tarih kısmı kayıt yapmıyor.
Koda ne gibi ilave gereklidir.
Teşekkürlerimle...
Private Sub CommandButton56_Click()
Dim deneme As Integer
deneme = Application.CountA(Sheets("liste").Columns("A")) + 1
Sheets("liste").Cells(deneme, 1) = Label7
Sheets("liste").Cells(deneme, 2) = TextBox1.Text
Sheets("liste").Cells(deneme, 3) = TextBox2.Text
Sheets("liste").Cells(deneme, 4) = TextBox3.Text
Sheets("liste").Cells(deneme, 5) = TextBox4.Text
Sheets("liste").Cells(deneme, 6) = TextBox5.Text
Sheets("liste").Cells(deneme, 7) = TextBox6.Text
Sheets("liste").Cells(deneme, 8) = DTPİcker5
Sheets("liste").Cells(deneme, 9) = TextBox7.Text
Label7 = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
DTPİcker5 = ""
TextBox7.Text = ""
Kodu ile liste sayfasına kayıt yaptırıyorum.
Fakat altı çizgili olan (DTPicker.5) tarih kısmı kayıt yapmıyor.
Koda ne gibi ilave gereklidir.
Teşekkürlerimle...