Sayfa temizlemede istisnai durum

[mesutaygun70]

Benim aşağıdaki kodlardan oluşan bir sayfa temizleme butonum var. Sıkınıtım yok ama tüm userformu temizliyor. Ben mesala frame3 ile combobox5 i ve textbox 3 ü temizlemesin diğerlerini temizlesin istiyorum. Bunun için kodların neresinde değişiklik yapacağım yardımcı olabilirmisiniz. Teşekkürler.

Private Sub CommandButton1_Click()
SAY = Controls.Count
For i = 0 To SAY - 1
X = TypeName(Controls(i))
If X = "TextBox" Then Controls(i) = ""
If X = "ComboBox" Then Controls(i) = ""
If X = "CheckBox" Then Controls(i).Value = False
Next i
End Sub

 

[askm]

Örnek olmadığı için denemedim. Aşağıdaki şekilde deneyiniz.

Private Sub CommandButton1_Click()
SAY = Controls.Count
For i = 0 To SAY - 1
X = TypeName(Controls(i))

If X = "TextBox" Then If i <> 3 Then Controls(i) = ""
If X = "ComboBox" Then If i <> 5 Then Controls(i) = ""
If X = "CheckBox" Then Controls(i).Value = False
Next i
End Sub

 

[hımmmmmmmm]

Private Sub CommandButton1_Click()
SAY = Controls.Count  
For I = 0 To SAY - 1
   X = TypeName(Controls(I))
   XX = Controls(I).Name
   
If X = "TextBox" Then
   If XX <> "TextBox3" Then Controls(I) = ""
End If
If X = "ComboBox" Then
   If XX <> "ComboBox5" Then Controls(I) = ""
End If
If X = "CheckBox" Then
   If XX <> "CheckBox3" Then Controls(I).Value = False
End If
Next I
End Sub