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