Gruplandırılmış sütünları açma kapama hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Öncelikle yardımlarınız için şimdiden çok teşekkürler. Çalışma sayfamda gruplandırmış olduğum (P VE Q ) sütünlarını buton yardımı ile ayrıntı göster, ayrıntı gizle yapmak istiyorum. Excel dosyası açıldığında ayrıntı gizli olarak gelmesi gerekiyor. Kullanıcı bazlı şifrelerle hazırladığım diyer kodlarımın içine uyarlayacağım inşallah

Saygılarımla,

Hakan ASLAN

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub Sutun_Ac()
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = False
End Sub

Sub Sutun_Kp()
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = True
End Sub

Umarım işinizi görür
İyi çalışmalar

 

[hakanaslan78]

Merhaba Arkadaşım,

Sub Sutun_Ac()
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = False
End Sub

Sub Sutun_Kp()
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = True
End Sub

Umarım işinizi görür
İyi çalışmalar

Çok teşekkür ederim Tevfik bey,

Küçük bir ricam daha var. Sheets("STOK") sayfasındaki sütunlara uygulatacağım. Kodlarımı çalışma kitabının içine yazıyorum bu yüzden hedef göstermem gerek.

Saygılarımla,

 

[Tevfik_Kursun]

Sub Sutun_Ac()
    Sheets("STOK").Select
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = False
End Sub

Sub Sutun_Kp()
    Sheets("STOK").Select
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = True
End Sub

Buyrun

 

[ÖmerBey]

Merhaba,
Alternatif.

Sub Gizle_Goster()
Sheets("STOK").Columns("P:Q").Hidden = Sheets("STOK").Columns("P:Q").Hidden = False
End Sub

 

[hakanaslan78]

Sub Sutun_Ac()
    Sheets("STOK").Select
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = False
End Sub

Sub Sutun_Kp()
    Sheets("STOK").Select
    Columns("P:Q").Select
    Selection.EntireColumn.Hidden = True
End Sub

Buyrun

Çok teşekkür ederim.

 

[hakanaslan78]

Merhaba,
Alternatif.

Sub Gizle_Goster()
Sheets("STOK").Columns("P:Q").Hidden = Sheets("STOK").Columns("P:Q").Hidden = False
End Sub

Çok teşekkür ederim.