checkboxların değeri TRUE olduğunda ilgili sütunları gi

[hamitcan]

İyi günler Arkadaşlar,

Bir Userform üzerinde 25 adet checkbox var , bunların herbiri bir sütunu ifade ediyor. Checkboxların değerleri TRUE olduğunda bu sütunları gizlemek istiyorum.

Soru: kodu en kısa nasıl yazarım ?

Teşekkürler...

 

[danersin]

En kısasımı bilemem ama aşağıdaki kod userform üstündeki tüm checkbox'ları dolaşır ve Checkboxların adını değiştirmediğiniz varsayımı ile sonlarındaki rakamları okur ve o sütunu kapar. döngüsüz yöntem belki her bir checkboxsın click olayına bir sütunu bağlamak olabilir.??

[vb:1:5db9bf8db4]Private Sub CommandButton1_Click()
For Each Control In Me.Controls
If Control.Value = True Then Columns(Mid(Control.Name, 9, Len(Control.Name) - 8) * 1).Hidden = True
Next
End Sub[/vb:1:5db9bf8db4]

 

[hamitcan]

Teşekkürler Sayın Danersin, benim istediğim de bu şekilde bir koddu.

İyi çalışmalar