Sutun Gizle - Göster

[Erhan Üstünel]

arkadaşlar ek de gönderdiğim dosyadan yardım edebilecek varmı,

toogle buttun ile sütünları gizle/göster yapmak istiyorum..

 

[leumruk]

Merhaba,
Ekteki örneği inceleyin.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "GÖSTER" Then
Range("A:A, B:B, C:C, G:G, H:H, I:I, N:N, O:O").EntireColumn.Hidden = False
ToggleButton1.Caption = "GİZLE"
Else
Range("A:A, B:B, C:C, G:G, H:H, I:I, N:N, O:O").EntireColumn.Hidden = True
ToggleButton1.Caption = "GÖSTER"
End If
End Sub

 

[Erhan Üstünel]

bir türlü yapamamıştım
eline emeğine sağlık teşekkür ediyorum..

 

[leumruk]

bir türlü yapamamıştım
eline emeğine sağlık teşekkür ediyorum..

Rica ederim.;-)