Kayıttaki sorun

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

Merhabalar;

Aşağıdaki kod.la, formdaki textboxlar.la liste sayfasına kayıt yapıyorum.

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) = DTPicker5
Sheets("liste").Cells(deneme, 9) = TextBox7.Text
Sheets("liste").Cells(deneme, 10) = TextBox8.Text
Sheets("liste").Cells(deneme, 11) = TextBox9.Text * 1
Sheets("liste").Cells(deneme, 12) = TextBox14.Text * 1
Sheets("liste").Cells(deneme, 13) = TextBox29.Text
Sheets("liste").Cells(deneme, 14) = TextBox30.Text
Sheets("liste").Cells(deneme, 43) = TextBox129.Text * 1
Sheets("liste").Cells(deneme, 44) = TextBox124.Text * 1
Sheets("liste").Cells(deneme, 48) = TextBox123.Text * 1
Sheets("liste").Cells(deneme, 50) = TextBox10.Text * 1
Sheets("liste").Cells(deneme, 51) = TextBox12.Text * 1
Sheets("liste").Cells(deneme, 52) = TextBox13.Text * 1
Sheets("liste").Cells(deneme, 53) = TextBox11.Text * 1
Sheets("liste").Cells(deneme, 58) = TextBox126.Text * 1
Sheets("liste").Cells(deneme, 59) = TextBox127.Text * 1
Sheets("liste").Cells(deneme, 60) = TextBox125.Text * 1
Sheets("liste").Cells(deneme, 61) = TextBox128.Text * 1

Label7 = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox123.Text = ""
TextBox124.Text = ""
TextBox125.Text = ""
TextBox126.Text = ""
TextBox127.Text = ""
TextBox128.Text = ""
TextBox129.Text = ""

End Sub


Fakat altları çizili, textBoxlardan biri boş ise (ki bazen ikikside boş olabiliyor) "Type mismatch" hatası verip kayıt yapamıyorum.

Kodda ne gibi değişiklik uygun olur.

Şimdiden Teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:116e24163e]if textbox12<>"" then Sheets("liste").Cells(deneme, 51) = TextBox12.Text * 1
[/vb:1:116e24163e]

 

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

Sn. Leventm;

Çok Teşekkür ediyorum.

Selamlarımla.