Gizle-göster

[polis-53]

Günaydin arkadaşlar elimde bir excel çalışması var bu excel çalışmamda 40 a yakın sayfalarım var benim istediğim bir butona basarak J,K,L,M sutunlarını gizlediğimde tüm sayfanın aynı satırlarını gizlesin göster dediğimdede göstersin acaba mümkünmüdür arkadaşlar.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Eğer işlem görmesini istemediğiniz sayfa ya da sayfalarınız varsa onları kod içinde kontrol etmelisiniz. Tüm sayfalarda bu işlemi yapmak istiyorsanız aşağıda kırmızı olarak işaretlediğim yeri silmeniz gerekir.

Private Sub CommandButton1_Click()
    Dim Syf As Worksheet
    Dim Drm As Boolean
    Dim Cap As String
    
    If CommandButton1.Caption = "Gizle" Then
        Cap = "Göster"
        Drm = True
    Else
        Cap = "Gizle"
        Drm = False
    End If
    
    Application.ScreenUpdating = False
    For Each Syf In Worksheets
        [B][COLOR=red]If Not Syf.Name = "Başla" Then[/COLOR][/B] Syf.Columns("J:M").EntireColumn.Hidden = Drm
    Next Syf
    
    CommandButton1.Caption = Cap
    Application.ScreenUpdating = True
    
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz

For s = 1 To Sheets.Count
Sheets(s).Columns("j:m").EntireColumn.Hidden _
= Sheets(s).Columns("j:m").EntireColumn.Hidden = 0
Next

Tek butonla gizle-göster işlemini yapıyor.

 

[polis-53]

Teşekkürler Seyit Tiken bey bir soru daha soracağım sayfaların bazılarında gizlemek istediğim sutunlar farklı bunu kodda nasıl belirleyebiliriz. bakarsanız çok sevineceğim.

 

[Seyit Tiken]

Sütun Adreslerini ekleyiniz, bir bakalım.

 

[polis-53]

örneğin sayfa 1,5 arası N,O sutunları sayfa6 da B sutunu diğer sayfalarda J,K,L,M sutunları gibi

 

[Seyit Tiken]

Buyrun....

For s = 1 To 5
Sheets(s).Columns("N:O").EntireColumn.Hidden _
= Sheets(s).Columns("N:O").EntireColumn.Hidden = 0
Next
Sayfa6.Columns("B").EntireColumn.Hidden = Sayfa6.Columns("B").EntireColumn.Hidden = 0
For ss = 7 To Sheets.Count
Sheets(ss).Columns("j:m").EntireColumn.Hidden _
= Sheets(ss).Columns("j:m").EntireColumn.Hidden = 0
Next

 

[polis-53]

kodu butona ekleyip çalıştıramadım eklermisiniz

 

[zafer]

Merhaba

Biraz araştırma yapıp kendiniz halletmeye çalışırmısınız.Sadece Arama motoruna istediğinizi yazıp aratacaksınız.

 

[Murat OSMA]

513 mesaj yazmışsınız ama kodu butona atayamadığınızı söylüyorsunuz...

Çok tuhaf ! :dusun::dusun::dusun::dusun::dusun: