Texbox.la kayıt sorunu

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

Merhabalar;

Userform üzerinedeki texbox ile, "vekalet" isimli sayfanın A sütununa, satır 200.den itibaren ilk boş yere kayıt yapması için;

Private Sub CommandButton11_Click()
Dim deneme As Integer
deneme = Application.CountA(Sheets("vekalet").Columns("A")) + 200
Sheets("vekalet").Cells(deneme, 1) = TextBox1.Text

TextBox1.Text = ""

Dim i As Integer

MsgBox "Yeni GÖREV NOTU Kaydı YAPILMIŞTIR.İyi Çalışmalar Dilerim", vbInformation, "Sn. " & Application.UserName
TextBox1.SetFocus
End Sub

Kodunu yazdığım halde kayıt yapmıyor. (Kayıt sadece A sütununa yapılacak)

Hatam nerede olabilir, kodda ne gibi değişiklik gerekir.

Teşekkürlerimle.

 

[Mahmut Kök]

Sayın kucuksengun,

Kodlarınızı denedim, sorunsuz çalıştı bende. (Zannetmiyorum ama ihtimal, sayfa adının yazımında hata olabilir.)

 

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

Sayın mesleki;

A sütununun üstk kısımlarında bazı satırlarda başka veriler var.
Sorun sanırım bundan kaynaklanıyor.
Yani A.200'ün üstü tamamen boş ise, kayıt yapıyor.

Selamlarımla.