Döngü İle TextBox Ve Comboların Temizlenmesi ?

[ybilgin]

Arkadaşlar Merhaba,
UserForm üzerinde bulunan 33 adet TextBox, 15 Adet ComboBox var
İhtiyaç duyulduğunda textbox ve combolardan bazılarının value değerini = ""
yapmam gerekiyor.
mevcut değerleri silmekte kolaylık olsun diye NAME değerlerinin ilk üç harfini
TEXTBOX lar için "txt"
COMBOBOX lar için "cbm" olacak şekilde ayarladım. Bu işlem için aşağıdaki kodları kullanıyorum. Textbox ve Combobox lardan bazıları Makro çalışmasına rağmen değerler temizlenmiyor. Nedeni ne olabilir.
Çok teşekkür ederim.

Private Sub temizle()
For i = 0 To 48
    If Mid(UserForm1.Controls(i).Name, 1, 3) = "txt" Then
        UserForm1.Controls(i).Value = ""
    End If
    If Mid(UserForm1.Controls(i).Name, 1, 3) = "cmb" Then
        UserForm1.Controls(i).Value = ""
    End If
Next i
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub temizle()
 
    Dim nesne As Control
    
    For Each nesne In Me.Controls
        If Left(nesne.Name, 7) = "TextBox" Or _
            Left(nesne.Name, 8) = "ComboBox" Then
            Controls(nesne.Name) = ""
        End If
    Next nesne
    
End Sub

.

 

[ybilgin]

Sayın modetatörüm, yardımınız için çok teşekkür derim.
işe yaradı. tekrar teşekkürler.

Private Sub temizle()

Dim nesne As Control

For Each nesne In Me.Controls
If Left(nesne.Name, 3) = "txt" Or _
Left(nesne.Name, 3) = "cmb" Then
Controls(nesne.Name) = ""
End If
Next nesne
End Sub

 

[Orion1]

Alternatif

Dim nesne As Control
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
        nesne.Value = ""
    End If
Next