Soru Dolu TextBox say

[sirkülasyon]

Userform da TextBox( 2, 4, 6, 8, 10 ) olma üzere 5 tane TextBox mevcut.
Bu textboxlarda dolu olanların sayısını TextBox14' e nasıl alabilirim?
Teşekkür Ederim

 

[mesuttasar]

Aşağıdaki kodları bir command butona atayabilirsiniz. Daha şık çözümde bulunabilir ama bu kodlar da iş görür.

Private Sub CommandButton1_Click()
Range("A1:A6").Select
    Selection.ClearContents
Cells(1, 1) = TextBox2.Text
Cells(2, 1) = TextBox4.Text
Cells(3, 1) = TextBox6.Text
Cells(4, 1) = TextBox8.Text
Cells(5, 1) = TextBox10.Text
Cells(6, 1) = WorksheetFunction.CountA([a1], [a2], [a3], [a4], [a5])
TextBox14.Text = Cells(6, 1)
Range("A1:A6").Select
    Selection.ClearContents
End Sub

 

[sirkülasyon]

Sayın mesuttasar
TextBox14 de dolu olanları göstermedi.
Bunun Userform üzerinde veri girdikçe TextBox14' e toplayan şekli olabilir mi?

 

[Trilenium]

i = 0
For a = 2 To 10
If Controls("Textbox" & a) <> "" Then
i = i + 1
End If
a = a + 1
Next

textbox14.Text = i

 

[sirkülasyon]

Çok çok teşekkür ederim.