Girilen Toplam Kayıt Sayısını Gösterme..

[inspirasyon]

Merhabalar, çok uğraştığım ama yapamadığım bir konu var.

Şöyle ki, Userformdan veri girerek kaydediyorum. Buraya kadar sorun yok. Benim isteğim şu; girilen toplam verinin sayısını (textbox veya label ) üzerinde görüntülemek.
Yani, diyelim ki 10 kayıt girilmişse girilen toplam sayı "10" diye label da veya textboxta gösterecek bir kod arıyorum.

Şimdiden teşekkür ederim.

 

[serqet]

Örnek dosya eklermisiniz.

 

[serqet]

misal sayfa1 de a1'den a15 e kadar veri olduğunu düşünelim bunu userform üzerinde textbox'a yazdırcaksan şöyle bir kod kullanman gerek.


Private Sub CommandButton1_Click()
TextBox1.Text = WorksheetFunction.CountA(Range("A1:A15"))
End Sub

 

[inspirasyon]

Öncelikle ilginiz için çok teşekkür ederim.
Ekli dosyada girilen kayıtların toplam sayısını Label veya textbox ta görünmesini istiyorum ama command button olmadan, yani yeni kayıt olduğunda veya kayıt silindiğinde güncel kayıt sayısını vermesini istiyorum.

Teşekkür ederim...

 

[serqet]

UserForm_Initialize kısmına aşağıdaki kodu ekleyip çalıştırın. 50000 kayıda kadar sayar.


Label6.Caption = WorksheetFunction.CountA(Range("DATA!B2:B50000"))

 

[Murat OSMA]

Bu tarz ufak kod parçalarını, Kod Arşiv Programlarında bulabilirsiniz. Kullanmanızı öneririm. http://www.excel.web.tr/f127/

 

[inspirasyon]

Teşekkürler

Çok teşekkür ederim serqet ve Murat Bey..