Dolu TextBox'ları Sayma

[goco]

Merhabalar efendim.
Excelde olsa yaparım fakat VBA da acemiyim. Yardımcı olursanız çok memnun olurum. Bir formumda 18 tane kadar TextBox'ım var. Bunların bir kaç tanesi dolu(Kişi isimleri var). Bunların kaç kişi olduğunu ayrı bir TextBox1'e belirtmem gerekiyor. Hangi VBA kodu ile saydırabilirim(TextBox1'e)?
İlginiz için teşekkür ederim.

 

[karadami]

Private Sub UserForm_Initialize()
TextBox1.Enabled = False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim say
Dim ekle
If TextBox1 = 0 Then TextBox1 = ""
On Error Resume Next
For say = 1 To UserForm1.Controls.Count
If Mid(Controls(say).Name, 1, 7) = "TextBox" Then
    GoTo ileri
Else
    GoTo gec
End If
ileri:
    If Controls(say) <> "" Then
    ekle = ekle + 1
    End If
gec:
Next say
TextBox1 = ekle - 1
If TextBox1 = 0 Then TextBox1 = ""
End Sub

 

[goco]

karadami Ustam,
Önce duyarlılığınız için çok teşekkür ederim. Tam aradığım gibi fakat bunu 50 kadar TextBox'ın içinden 18 tanesinin(TC NO.su olan TextBoxlar) dolu olanlarını saydırmak istiyorum. Bu konuda bir değişiklik yapabilir miyiz efendim?
Yardımınız için teşekkür ederim. Kolay gelsin.

 

[karadami]

yukarıdaki kodlarda

If Mid(Controls(say).Name, 1, 7) = "TextBox" Then

kısmını

If Mid(Controls(say).Name, 1, 7) = "TextBox" And IsNumeric(Controls(say)) And Len(Controls(say)) = 11 Then

olarak değiştirin

 

[goco]

Dolu TextBoxları sayma Kodu ??

Karadami Üstadım,
Önce zaman ayırdığınız için teşekkür ederim. Yukarıda verdiğin kod çalıştırmadı. Örneği Word Belgesi ile gönderiyorum. Size de size de zahmet veriyorum ama. Başka ilgilenen arkadaşlar da bulamadım şu an. Kusura bakmayın.

 

[karadami]

Karadami Üstadım,
Önce zaman ayırdığınız için teşekkür ederim. Yukarıda verdiğin kod çalıştırmadı.

sayın goco,
TC kimlik noları 11 hanelidir.
verdiğim kodlarda textboxa giren değer sayısalsa ve 11 haneliyse sayıyor aksi taktirde saymıyor. sizin yollamış olduğunuz resimde kimlik numaraları 5-6 haneli olduğu için saymıyor gözükebilir. bunları gerçek formatında yani 11 haneli olarak yazarsanız sayıcaktır.

 

[goco]

Karadami Ustam çok teşekkür ederim. Elinize sağlık.

 

[goco]

sayın goco,
TC kimlik noları 11 hanelidir.
verdiğim kodlarda textboxa giren değer sayısalsa ve 11 haneliyse sayıyor aksi taktirde saymıyor. sizin yollamış olduğunuz resimde kimlik numaraları 5-6 haneli olduğu için saymıyor gözükebilir. bunları gerçek formatında yani 11 haneli olarak yazarsanız sayıcaktır.

Karadami ustam,
Yukarıdaki kodlar çalışıyor fakat aşağıda göderdiğim formda çalıştıramadım. Bunu Farenin hareketiyle değil de başka komutla sayamaz mı? Açıklamayı formda yaptım zaten. Bir zahmet gönderdiğim dosyada düzeltmeyi yapabilir misiniz. Bu dosyayı da siz yapmıştınız zaten.
Teşekkür ederim efendim

 

[karadami]

sizin formda nasıl kullandığınız bilmiyorum. son mesajınızdaki örnekte olduğu gibi düğmeye basıp userformu açıcaksanız ve değiştirme yapmayacaksanız bütün kodları userform_initialize olayı içinde toplayabilrisiniz.