Soru Çoklu Labellerde içini temizle

[sirkülasyon]

For döngüsü ile Label 2,4,6,8,12,14,16,18,21,22,24,27,31,32,33,35 temizlemek istiyorum.

Dim label As Control
For Each label In Me.Controls
    If TypeOf label Is MSForms.label Then
        Select Case label.Caption
            Case "2", "4", "6", "8", "12", "14", "16", "18", "21", "22", "24", "27", "31", "32", "33", "35"
                label.Caption = ""
        End Select
    End If
Next label

Ama hiç işlem yapmıyor. Yardımcı olabilir misiniz?

 

[Mdemir63]

Selam

Aşağıdaki gibi dener misiniz?

Dim denetim As Control
      For Each denetim In UserForm1.Controls
            If TypeName(denetim) = "Label" Then
                  denetim.Caption = ""
            End If
      Next denetim

 

[veyselemre]

Bahsettiğiniz labellerin ismi Label2, Label4 gibiyse;

Dim i
    For Each i In Array("2", "4", "6", "8", "12", "14", "16", "18", _
                        "21", "22", "24", "27", "31", "32", "33", "35")
        Me.Controls("Label" & i).Caption = ""
    Next i

 

[sirkülasyon]

Mdemir63 ve veyselemre
Çok çok teşekkür ederim. Sağ olun

 

[Mdemir63]

Mdemir63 ve veyselemre
Çok çok teşekkür ederim. Sağ olun

Rica ederim.
İyi çalışmalar