Sütun gizle / göster makrolarını tek butonda.....

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

 

[onder_09]

Bu şekilde kendinize uyarlayınız.
Ekli dosyayı görüntüle 221792

Çok teşekkür ederim uzmanım. Allah razı olsun.

 

[onder_09]

Hocam son olarak varsayalım ki k hücresini gizlemek istiyorum kodu nasıl düzenleyebilirim ?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
For h = 1 To Sheets.Count
Sheets(h).[c:d,r1].EntireColumn.Hidden = Sheets(h).[c:d,r1].EntireColumn.Hidden = 0
Next
End Sub

 

[onder_09]

Var mı bir çözümü ?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
For h = 1 To Sheets.Count
Sheets(h).[c:d,r:r,k1].EntireColumn.Hidden = Sheets(h).[c:d,r:r,k1].EntireColumn.Hidden = 0
Next
End Sub

 

[onder_09]

Bu şekilde deneyiniz.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
For h = 1 To Sheets.Count
Sheets(h).[c:d,r:r,k1].EntireColumn.Hidden = Sheets(h).[c:d,r:r,k1].EntireColumn.Hidden = 0
Next
End Sub

Çok teşekkür ederim