İ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 kodu userform üzerindeki texboxlarla kayıt yapmak istediğim kaydet butonunda hata veriyor.
Kayıtı, b2 hücresinden itibaren c2,d2 .....hücrelere ve dolu olan satırdan bir sonraki satıra yapmak istiyorum.
Private Sub CommandButton1_Click()
Application.CountA (Sheets("müvekkil hesapları").Columns("B")) + 1
Sheets("müvekkil hesapları").Range("b2").Value = TextBox1.Value
Sheets("müvekkil hesapları").Range("c2").Value = TextBox2.Value
Sheets("müvekkil hesapları").Range("d2").Value = TextBox3.Value
Sheets("müvekkil hesapları").Range("e2").Value = TextBox4.Value
Sheets("müvekkil hesapları").Range("f2").Value = TextBox5.Value
Sheets("müvekkil hesapları").Range("g2").Value = TextBox6.Value
Sheets("müvekkil hesapları").Range("h2").Value = TextBox7.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox1.SetFocus
End Sub
Hatam nerde olabilir?
Şimdiden teşekkürler...
Aşağıdaki kodu userform üzerindeki texboxlarla kayıt yapmak istediğim kaydet butonunda hata veriyor.
Kayıtı, b2 hücresinden itibaren c2,d2 .....hücrelere ve dolu olan satırdan bir sonraki satıra yapmak istiyorum.
Private Sub CommandButton1_Click()
Application.CountA (Sheets("müvekkil hesapları").Columns("B")) + 1
Sheets("müvekkil hesapları").Range("b2").Value = TextBox1.Value
Sheets("müvekkil hesapları").Range("c2").Value = TextBox2.Value
Sheets("müvekkil hesapları").Range("d2").Value = TextBox3.Value
Sheets("müvekkil hesapları").Range("e2").Value = TextBox4.Value
Sheets("müvekkil hesapları").Range("f2").Value = TextBox5.Value
Sheets("müvekkil hesapları").Range("g2").Value = TextBox6.Value
Sheets("müvekkil hesapları").Range("h2").Value = TextBox7.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox1.SetFocus
End Sub
Hatam nerde olabilir?
Şimdiden teşekkürler...