Gizlediğim hücreleri tek butonla görmek

[dreamymost]

arkadaşlar merhaba
excel dosyasında

2
3
4
5
sütunlarını gizledim.

a1 hücresine tıkladığımda gizli hücrelerin gözükmesini istiyorum böyle bişey yapılabilir mi?

 

[Seyit Tiken]

İşinizi kolaylaştıracak bir kod. A sütununun herhangi bir hücresine çift tıklayın, gizler ve gösterir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Column = 1 Then
[b1:e1].EntireColumn.Hidden = [b1:e1].EntireColumn.Hidden = 0
End If
End Sub

 

[dreamymost]

İşinizi kolaylaştıracak bir kod. A sütununun herhangi bir hücresine çift tıklayın, gizler ve gösterir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Column = 1 Then
[b1:e1].EntireColumn.Hidden = [b1:e1].EntireColumn.Hidden = 0
End If
End Sub

Hocam çok teşekkürler satırları nasıl gizletebiliriz ?

a2 ile a5 satırı aralığını gizleyip göstermek için?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'If ActiveCell.Columns = A Then
[a2:a5].EntireRow.Hidden = [a2:a5].EntireRow.Hidden = 0
'End If
End Sub