Koddaki eksiklik nedir?

[İsmail Küçükşengün]

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...

 

[Ayhan Ercan]

yukarda kodları yazdığın gibimi yazdın? "DTPİcker5" "DTPicker5" yap birde.
(DTPİcker5= burda i harfi büyük )

 

[İsmail Küçükşengün]

Sn: Schakal;

Dikkatsizlik işte. Elle yazınca hatalı yazmışım.

İlginize teşekkürler.....