Tüm TextBox'ların İçeriğini Temizleme

[btanju]

Selamlar,

UserFormumda 16 ve değişkenli TextBox lar mevcut TextBox1,TextBox2,TextBox3 hariç tüm TextBox ların içerisinin kaydet butonuna basıldığında temizlenmesini istiyorum. Şimdiden yardımlarınız için teşekkür erderim.

Aşağıdaki Kod hepsini siliyor Fakat TextBox1,TextBox2,TextBox3 ün silinmesini istemiyorum.

Private Sub CommandButton2_Click()
For i = 1 To 32
controls("TextBox" & i )= Empty
Next i
End Sub

 

[ÖmerFaruk]

Private Sub CommandButton2_Click()
For i = 4 To 32
controls("TextBox" & i )= Empty
Next i
End Su

 

[btanju]

Private Sub CommandButton2_Click()
For i = 4 To 32
controls("TextBox" & i )= Empty
Next i
End Su

Hocam elinizi sağlık biraz konuyu açabilirmisiniz mesala 4 ün ve 32 inin anlamı nedir ben onu 5 yapsam ne olur 3 yapsam ne olur anlatmanız mümkün müdür?

 

[ÖmerFaruk]

i=4 to 32
Sayaç değeri 4 den 32 ye kadar sayacak. 4 ve 32 dahil.

Controls("TextBox" & i )= Empty
Döngünün her dönüşünde sayaç değerini kullanarak Textbox4 - TextBox5....TextBox32 ye kadar ne işlem istiyorsanız onu yapıyor.

Siz örneğin TextBox5 den TextBox10 kadar olan textboxlar için işlem yapacaksanız
For i=5 to 10
Olmalı.

 

[btanju]

i=4 to 32
Sayaç değeri 4 den 32 ye kadar sayacak. 4 ve 32 dahil.

Controls("TextBox" & i )= Empty
Döngünün her dönüşünde sayaç değerini kullanarak Textbox4 - TextBox5....TextBox32 ye kadar ne işlem istiyorsanız onu yapıyor.

Siz örneğin TextBox5 den TextBox10 kadar olan textboxlar için işlem yapacaksanız
For i=5 to 10
Olmalı.

Hocam harikasınız