UserForm'daki kaydet butonuyla TextBox, ComboBox nesnelerin içeriklerini silme

[Believing]

Sayın Uzman arkadaşlar,

Bir çalışma kitabında bulunana UserForm üzerinde TextBox1, ComboBox2 ve 50 adet CheckBox bulunmaktadır.
Kaydet butonuna basınca TextBox1, ComboBox2 içeriklerini silmek, CheckBox tiklerini de kaldırmak istiyorum.
Bu koşulları sağlamak için nasıl yöntem ve kod kullanmalıyım? Aşağıda yazmaya çalıştığım kod isteğimi tam olarak karşılamamaktadır.
Benim için çok değerli olan yardımlarınızı rica ediyorum.

Sub Secimleri_Temizle()
For i = 1 To 52
ComboBox1.Value = False
TextBox2.Value = False
CheckBox1.Value = False

Next i
End Sub

Saygılarımla,

 

[YUSUF44]

Bu gibi sorularda yapılan işlemler başka kodları tetikleyebileceğinden kesin çözüm bulmak zor oluyor bildiğim kadarıyla. Aşağıdaki gibi deneyin, olmazsa örnek dosya paylaşın:

Sub Secimleri_Temizle()
ComboBox1.clear
TextBox2.clear

For i = 1 To 52
    Me.controls("CheckBox" & i).Value = False
Next i
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Dim sil As Control
For Each sil In UserForm1.Controls
If TypeName(sil) = "TextBox" Or TypeName(sil) = "ComboBox" Then
sil.Text = ""
End If
Next sil
For i = 1 To 52
Controls("CheckBox" & i) = 0
Next i