veri kayıtta problem

[cobanoglu]

normalde b8 den sonra kayıt yapması lazım yapıyorda ama kapatıp açtığımda bu sefer b7 den başlışor neden olabilir ustalarım bir de bu .CountA neyi ifade ediyor saygılarımı sunuyorum
Dim DENEME As Integer
DENEME = Application.CountA(Sheets("ayniyat").Columns("B")) + 5
If DENEME < 58 Then

Sheets("ayniyat").Cells(DENEME, 2) = TextBox1.Value
Sheets("ayniyat").Cells(DENEME, 3) = TextBox2.Value
Sheets("ayniyat").Cells(DENEME, 6) = TextBox3.Value
Sheets("ayniyat").Cells(DENEME, 5) = TextBox4.Value


Else
MsgBox "ibrahim çoban...! kayıt doldu çıktı alıp yeniden kayıt yapınız."
Exit Sub

End If

 

[alpi]

DENEME = Application.CountA(Sheets("ayniyat").Columns("B")) + 5
Bu koddaki CountA B kolonunda bulunan kayıtların sayısını verir.

Örnek:
B1 hücerisinde Adı Soyadı yazıyorsa
B2 Boşsa
B3 Cobanoğlu yazıyorsa

DENEME = 2 olacaktır. Çünkü B kolonunda iki kayıt vardır.