TextBox Veri Silme

[askm]

Kolay gelsin.
Sayfa içerisinde textboxlar ile filtreleme yaparak aradığım kişileri bulduruyorum. (Örneğin adı soyadı)
Toplam 9 tane textbox var. Sayfa aktif olunca textbox içerisindeki verilerin silinmesini istiyorum. Aşağıdaki kodları denedim ama olmadı. Fikri olan var mı.

1. Yöntem bunu buldum. : Eğer textbox isimleri ardışık gitmiyorsa aşağıdaki gibi deneyin
Private Sub CommandButton1_Click()
For a = 0 To controls.count-1
if typename(controls(a))="TextBox" then controls(a)=""
Next
End Sub

2.Yöntem:
Private Sub CommandButton2_Click()
For i = 1 To 32
controls("TextBox" & i )= Empty
Next i
End Sub

 

[PLİNT]

Kolay gelsin.
Sayfa içerisinde textboxlar ile filtreleme yaparak aradığım kişileri bulduruyorum. (Örneğin adı soyadı)
Toplam 9 tane textbox var. Sayfa aktif olunca textbox içerisindeki verilerin silinmesini istiyorum.

Merhaba
"TextBox" lar sayfada ise şöyle deneyin:

Private Sub CommandButton1_Click()

Dim a As OLEObject
For Each a In ActiveSheet.OLEObjects
If TypeName(a.Object) = "TextBox" Then a.Object.Text = Empty
Next

End Sub