textbox'larda toplu secim

[ttrance]

arkadaşlar;

TextBox8.Visible = False

komutunu kullanıyorum fakat 20 ye yakın textbox var hepsini aynı anda topluca nasıl gizleyebilirim...

textbox8
textbox9....... haricinde

kolay gesin

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile yapabilirsiniz.

Private Sub UserForm_Initialize()
    For X = 8 To 28
    If Controls("TextBox" & X).Name <> "TextBox9" Then
    Controls("TextBox" & X).Visible = False
    End If
    Next
End Sub

 

[ttrance]

Sagolasin Hocam İŞe Yaradi