Tek textboxın temizlenmemesini sağlamak

[byfika]

Merhabalar,
Userformda ilk 15 textboxa ve 1 den 5 comboboxa kaydet, bul, değiştir, sil ile veriler giriyorum. 16. textboxa A2: A arası dolu satırları saydırıyorum. İlk 15 textboxın örneğin " txtadı " gibi değişik isimler verdim. Sadece textbox16 " TextBox16 " şeklinde isimli.
Temizleme butonu ( aşağıdaki kodla) ile 16 adet Textbox ve 5 adet comboboxın içeriğini temizliyorum. Fakat 16. textboxtaki verinin silinmesini istemiyorum bunu nasıl sağlayabilirim.
Bilgi için teşekkürler...

Private Sub cmdTemizle_Click()
For Each temiz In Me.Controls
If TypeName(temiz) = "TextBox" Or TypeName(temiz) = "ComboBox" Then temiz.Value = ""
Next temiz
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.

Private Sub CommandButton1_Click()
    For Each temiz In Me.Controls
        If Not temiz.Name = "TextBox16" And TypeName(temiz) = "TextBox" Or TypeName(temiz) = "ComboBox" Then temiz.Value = ""
    Next temiz
End Sub

 

[ÖmerBey]

Merhaba,
Basit biçimde şu şekilde yapılabilir...

Private Sub cmdTemizle_Click()
For Each temiz In Me.Controls
If temiz.Name = "TextBox16" Then GoTo 1
If TypeName(temiz) = "TextBox" Or TypeName(temiz) = "ComboBox" Then temiz.Value = ""
1
Next temiz
End Sub

 

[byfika]

Merhabalar Ömer bey ve Dalgalıkur,
Kodlar için teşekkürler. Denedim her ikisi de çalışıyor.
Her ikinize de tekrar çok teşekkürler.. Saygılarımla