Dolu olanları SAYMA (textBox'larda)

[goco]

Merhaba arkadaşlar.
Benim bir Formum var. Bu formda sayfadaki değerleri BUL komutuyla dosya numarasına göre TextBoxlara alıyorum. Bulduğum değer, bir ailenin kimlik kartı. Formda 100 kadar TextBox var. Ailede kaç kişi olduğunu öğrenmem için TC nosu olan TextBoxları(TextBoxTC1, TextBoxTC2, TextBoxTC2...gibi 17 tane TextBox) saymasını istiyorum. Formda aile reisinin TC NO.su yine olacağından Ailede bulunan kişi TextBoxlarını Form üzerinde bulunan Frame3'e aldım. Ailedeki KİŞİ SAYISINI öğrenmek için TC nosu olan TextBoxları saydırmak istiyorum. Örnek dosyayı ekte sunuyorum. Bilen arkadaşlardan yardım bekliyorum efendim. Teşekkür ederim.

NOT:Kodları hazır fakat çalıştıramadım. Nedeni nedir?

 

[Orion1]

Dosyanız hazır .Bul butonuna bastığınızda tc noları dolu olan textboxları sayar.

Private Sub CmdFindk1_Click()
Dim bak2 As Range, deg As String
Dim i As Byte, sayac As Byte
deg = UCase(Replace(Replace(TextboxK.Value, "ı", "I"), "i", "İ"))
Set bak2 = Range("B2:B65536").Find(deg, , xlValues, xlWhole)
If Not bak2 Is Nothing Then
    bak2.Select
    TextBoxTC1.Value = ActiveCell.Offset(0, 1).Value
    TextBoxTC2.Value = ActiveCell.Offset(0, 2).Value
    TextBoxTC3.Value = ActiveCell.Offset(0, 3).Value
    TextBoxTC4.Value = ActiveCell.Offset(0, 4).Value
    TextBoxTC5.Value = ActiveCell.Offset(0, 5).Value
    TextBoxTC6.Value = ActiveCell.Offset(0, 6).Value
    TextBoxTC7.Value = ActiveCell.Offset(0, 7).Value
    TextBoxTC8.Value = ActiveCell.Offset(0, 8).Value
    TextBoxTC9.Value = ActiveCell.Offset(0, 9).Value
    TextBoxTC10.Value = ActiveCell.Offset(0, 10).Value
    TextBoxTC11.Value = ActiveCell.Offset(0, 11).Value
    TextBoxTC12.Value = ActiveCell.Offset(0, 12).Value
    TextBoxTC13.Value = ActiveCell.Offset(0, 13).Value
    Else
    MsgBox "Aradığınız numarada bir kayıt bulunamadı"
End If
[B][COLOR="Red"]For i = 1 To 17
    If Controls("TextBoxTC" & i).Value <> "" Then
        sayac = sayac + 1
    End If
Next i
TextBox1.Value = sayac[/COLOR][/B]
End Sub

 

[goco]

Evren Bey,
Hani br söz vardır:"İŞ, BİLENİN; KILIÇ, KUŞANANINDIR" derler ya. Onun gibi. Ellerinize sağlık. Güzel olmuş. Saygılar efendim.

 

[Orion1]

Evren Bey,
Hani br söz vardır:"İŞ, BİLENİN; KILIÇ, KUŞANANINDIR" derler ya. Onun gibi. Ellerinize sağlık. Güzel olmuş. Saygılar efendim.

Rica ederim.
Saygılar benden.
İyi çalışmalar.