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

[Bora K]

Günaydın arkadaşlar.
Aşağıdaki kodu makro kaydet yöntemi ile aldım.
(Kod B ve C sütunlarını gizle/göster ve satır sütun başlıklarını gizle göster yapıyor)

Benim şu şekilde bir isteğim var.
Bu kodlar tek bir butondan çalışsın istiyorum.

birinci tıklamada Kapat makrosu çalışsın
ikinci tıklamada ise aç makrosu çalışsın.

Eğer yardımcı olabilirseniz çok sevinirim.

Sub Kapat()
Columns("B:C").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.DisplayHeadings = False
End Sub

Sub Aç()
ActiveWindow.DisplayHeadings = True
Columns("B:C").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

 

[hamitcan]

Sayfaya bir ToggleButton nesnesi ve sayfanın kod kısmına da aşağıdaki kodu ekleyin.

Private Sub ToggleButton1_Click()
    If ToggleButton1 Then
        Kapat
    Else
        Aç
    End If
End Sub

 

[Bora K]

Çok teşekkür ederim Hamit bey saolun.

 

[Seyit Tiken]

Alternatif : Form Denetimdeki düğmeyle

Sub gizlegöster()
[b:c].EntireColumn.Hidden = [b:c].EntireColumn.Hidden = 0
End Sub

 

[Bora K]

Merhabalar Seyit Bey.
Bu koda
Satır ve sütun başlıklarını gizle göster ilavesi yapmak mümkünmü acaba?

Gizli sütunlar açıldığında Satır ve sütun başlıkları gözükecek
Sütunlar gizlendiğinde satır ve sütun başlıklarıda gizlenecek.

 

[Bora K]

............

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Sub baslıkgg()
ActiveWindow.DisplayHeadings = ActiveWindow.DisplayHeadings = 0
End Sub

 

[mkstyle]

Gzile - Göster

İyi akşamlar. Haddim olmayarak bende bir şey öğrenmek istiyorum. Gizleme ve gösteme sorununu bende yaşıyorum.
Sorunum şudur.

Formlar üzerinde veri giriş yapıyorum ve excel, formun arkasında görünsün istemiyorum. (ekranda sadece form görünecek) Ama Form üzerinden gönderdiğim bir veri yazmış olduğum kodda belirttiğim sayfadaki hücreye yazacak.

Örnek:
Sheets("BILGI").Range("E3:AS3") = TextBox1.Value 'Excel ve BILGI sayfası formun arkasında gizlenecek. Sonra bir buton ile göster diyeceğim.

Lütfen yardımlarınızı bekliyorum. Teşekkür ederim.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Application.Visible = Application.Visible = 0

 

[önder34]

Makro çalıştırılamıyor !

Merhaba sütun gizle göster macrosunu bir düğmeye kopyaladım .Kod bölümünde çalıştırınca çalışıyor ama sayfa üzerinde düğmeye tıklama yapınca "3.oturum.xlsm.göster macrosu çalıştırılamıyor.Makro çalışma kitabında olmayabilir veya tüm makrolar deve dışı bırakılmış olabilir " uyarısı veriyor.Oysa sayfada çalışan başka makrolarda mevcut.Çözemedim .excel 2010 kullanıyorum .Yardımınızı rica ediyorum
y

 

[Seyit Tiken]

İlgili DÜĞMEYE sağ tıkla, alta MAKRO ATA var, oraya atayın.

[B1].EntireColumn.Hidden = [B1].EntireColumn.Hidden = 0

 

[yenilik025]

Birden çok boş sütıunun gizlenmesini istiyorsak bunu nasıl yapmalıyız ?

İlgili DÜĞMEYE sağ tıkla, alta MAKRO ATA var, oraya atayın.

[B1].EntireColumn.Hidden = [B1].EntireColumn.Hidden = 0

Hocam Genelde sütun gizle göster komutları var ancak ?

F3:J100 sütunları arasındaki sütunlar boş ise

boş olan sütunların gizlenmesini buton ile istiyorsak bunu nasıl yapmalıyız ?

Buton komutu denedim ancak sanırım hatalarım var.

Dim SelectColumn As Long
SelectColumn = Range("F3:J100").Select
If SelectColumn = "" Then
EntireColumn.Hidden = True
End If

 

[Seyit Tiken]

Bu şekilde deneyiniz.

[f1:j1].EntireColumn.Hidden = [f1.j1].EntireColumn.Hidden = 0

 

[yenilik025]

Boş olan hücreleri gizlemiyor tamamını gizliyor.

Hocam teşekkürler, ancak,

Boş olan sütunları gizlemiyor tamamını gizliyor. Bu kod.

Bu şekilde deneyiniz.

[f1:j1].EntireColumn.Hidden = [f1.j1].EntireColumn.Hidden = 0

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

[E2:K2].SpecialCells(4).EntireColumn.Hidden = [E2:K2].SpecialCells(4).EntireColumn.Hidden = 0

 

[onder_09]

Alternatif : Form Denetimdeki düğmeyle

Sub gizlegöster()
[b:c].EntireColumn.Hidden = [b:c].EntireColumn.Hidden = 0
End Sub

Herkese merhaba konuyu hortlatcam tekrardan ama ben sadece "c d r" sütünlarını gizlemek istiyorum nasıl yapabilirim ? excel çalışmamda birden fazla sayfam var ben hepsini kapatmak tek tuşla kapatmak istiyorum

 

[onder_09]

Yardımcı olursanız çok sevinirim sayın uzmanlarım

 

[onder_09]

Sanırım bi çözüm yok benim olaya teşekkürler bakan herkese

 

[Seyit Tiken]

Herhangi bir sayfada ve herhangi bir hücrede iken çift tıklayıp 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].EntireColumn.Hidden = Sheets(h).[c:d,r:r].EntireColumn.Hidden = 0
Next
End Sub

 

[onder_09]

Herhangi bir sayfada ve herhangi bir hücrede iken çift tıklayıp 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].EntireColumn.Hidden = Sheets(h).[c:d,r:r].EntireColumn.Hidden = 0
Next
End Sub

Çok teşekkür ederim istediğimden de iyi olmuş fakat ben bunu kendi orijinal dosyama nasıl yapacağım ? Makro kodunu göremedim