Makro ile sütun gizleme.

[serif_007]

Merhabalar;

Biraz araştırdım fakat herkes şartlı gizleme istemiş. Benim istediğim sadece örnek veriyorum B-C-D-Z sütunlarını dolu boş farketmeksizin bir buton yardımı ile gizleyip aynı buton ile tekrar göstermek. Bu konuda yardımcı olabilir misiniz?

 

[1Al2Ver]

Merhaba,

Basit haliyle,

Sayfaya 1 ToggleButton atayın ve aşağıdaki kodu sayfanın koduna kopyalayın,

Private Sub ToggleButton1_Click() 'GÖSTER
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("B:D,Z:Z").EntireColumn.Hidden = True
    Else
    ToggleButton1.Caption = "GİZLE"
    Range("B:D,Z:Z").EntireColumn.Hidden = False
End If
End Sub

Kolay gelsin.

 

[numan şamil]

alternatif olsun

Sub gizle_göster()
If Range("B:D,Z:Z").EntireColumn.Hidden = True Then
Range("B:D,Z:Z").EntireColumn.Hidden = False
Else
Range("B:D,Z:Z").EntireColumn.Hidden = True
End If
End Sub

 

[serif_007]

Çok teşekkür ediyorum. Ellerinize sağlık

 

[assenucler]

Sayın 1Al2Ver,
Sayın numan şamil,

Yukarıdaki kodları Sayfa2'de kullanmak istersek, ne yapmalıyım?

Emek ve paylaşımlarınız için teşekkürler.

Saygılar,
Selim

 

[Cengiz Demir]

Ek bilgi : Bu gibi durumlarda , ihtiyaca göre gruplandır/seviyelendir özelliği de kullanılabilir.

 

[GursoyC]

Sayın 1Al2Ver,
Sayın numan şamil,

Yukarıdaki kodları Sayfa2'de kullanmak istersek, ne yapmalıyım?

Emek ve paylaşımlarınız için teşekkürler.

Saygılar,
Selim

İlgili arkadaşlar kodları sayfadan bağımsız olarak bir düğmeye atanacak şekilde paylaşmışlar.
Sayfa2'ye bir toggle button koyup kodları atarsanız çalışacaktır.

 

[1Al2Ver]

Sayın assenucler merhaba,

İlgili kodu sayfa2'nin koduna yazın, sayfaya 1 adet togglebutton atayın,

Kolay gelsin.

 

[numan şamil]

Merhaba
Sayfa2 ye buton açıp makroyu atamanız yeterli
Sayfa1 de buton olsun işlemler sayfa2 de gerçekleşmesi isteniyorsa
kodlar

Sub gizle_göster()
Dim Sa As Worksheet
Set Sa = Sheets("Sayfa2")
Application.ScreenUpdating = False
If Sa.Range("B:D,Z:Z").EntireColumn.Hidden = True Then
Sa.Range("B:D,Z:Z").EntireColumn.Hidden = False
Else
Sa.Range("B:D,Z:Z").EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub

 

[assenucler]

Sayın 1Al2Ver merhaba,
Sayın numan şamil,

İlginiz ve yardımınız için teşekkürler. Sağ olun, var olun. Hayırlı kazançlar dilerim.
Saygılar,
Selim

 

[numan şamil]

Rica ederim iyi akşamlar