Userform üzerindeki texboxlarla kayıt

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

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

 

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

Sorunumu çözdüm. Teşekkürler.

 

[yusufziya41]

Sayın kucuksengun bu konuda benide aydınlatırsanız çok sevinirim.Benzer sorunu yaşıyorum...