kullanılan textboxların sayısı.

[felix83]

kullanılan textboxların sayısını bir değişkene atamam gerek nasıl yapabilirim?
usedrange.textbox.count yazdım olmadı.

 

[Kemal Demir]

Felix,

Umarım faydalı olur.Biraz amatorce oldu ama zannedersem soruna cozum olur..

Dim alan As String
alan = "Text"
For Each c In UserForm1.Controls
If Left(c.Name, 7) = "TextBox" Then
Debug.Print c.Name
say = say + 1
End If
Next c
MsgBox say & " " & "Adet Textbox Var"

 

[felix83]

Felix,

Umarım faydalı olur.Biraz amatorce oldu ama zannedersem soruna cozum olur..

Dim alan As String
alan = "Text"
For Each c In UserForm1.Controls
If Left(c.Name, 7) = "TextBox" Then
Debug.Print c.Name
say = say + 1
End If
Next c
MsgBox say & " " & "Adet Textbox Var"

teşekkürler kod işe yarıyor galiba ama ben başka yerlerde hata yapmışın ondan çalışmadı şimdi önümdeki engel userfırmdaki tüm textboxları silmek. bunu nasıl yapabilirim?