sütunlarının üstine bir işaretle basınca açılıp kapanır yapmak

[cemto]

Merhaba arkadaşlar araştırım ama malesef bulamadım örnekteki dosyada olduğu gibi E F G sütunlarının üstine bir işaretle basınca açılıp kapanır yapmak için nasıl bir yol izlemeleyim

 

[Necdet]

Merhaba,
Açılıp kapanıptan kastınız nedir bilmiyorum ama aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp denerseniz,
herhangi bir hücreye ÇİFT TIKLADIĞINIZDA ilgili sütunlar gizli ise gösterilir, gizle değilse gizlenir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Columns("E:G").Hidden = True Then
        Columns("E:G").EntireColumn.Hidden = False
    Else
        Columns("E:G").EntireColumn.Hidden = True
    End If
    
End Sub

 

[Korhan Ayhan]

Alternatif olarak ilgili sütunları seçtikten sonra VERİ menüsünden GRUPLANDIR seçeneğini kullanarak sonuç alabilirsiniz.