Süzme İşleminde, Boş Sutunları Nasıl Gizleyebiliriz ? Nasıl Gösterebiliriz ?

[yenilik025]

Süzme İşleminde, Boş Sutunları Nasıl Gizleyebiliriz ? Nasıl Gösterebiliriz ?

'HOCALARIM MERHABALAR.
'Z VE AH KOLONLARI DEĞİL----> SEÇİMİ YAPILAN DERSE GÖRE
'[E:AM] SÜTUNLARI ARASINDA
'BOŞ SUTUNLARI GİZLEME VE GÖSTERME İŞLEMİNİ NASIL YAPABİLİRİZ

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ToggleButton1_Click()
    If ToggleButton1 = True Then
        ToggleButton1.Caption = "GÖSTER"
        For X = 5 To 39
            If Cells(100, X) = 0 Then Columns(X).Hidden = True
        Next
    Else
        ToggleButton1.Caption = "GİZLE"
        Range("E:AM").EntireColumn.Hidden = False
    End If
End Sub

 

[yenilik025]

Hocam çok teşekkür ederim ancak ağlamak istiyorum

Hocam çok teşekkür ederim ancak, ağlamak istiyorum

yine hücrelerin tamamını gizliyor 5 sütundan 39 sütuna kadar tamamını gizliyor.

Deneyiniz.

Private Sub ToggleButton1_Click()
    If ToggleButton1 = True Then
        ToggleButton1.Caption = "GÖSTER"
        For X = 5 To 39
            If Cells(100, X) = 0 Then Columns(X).Hidden = True
        Next
    Else
        ToggleButton1.Caption = "GİZLE"
        Range("E:AM").EntireColumn.Hidden = False
    End If
End Sub

 

[Ömer BARAN]

Merhaba.

Umarım yanlış anlamadım.
Filtre kriterini değiştirdikten sonra sayfadaki düğmeye ilk tıklamada tüm sütunar görünür,
düğmeye ikinci tıklamada ise 4-34'ücü satırlarda veri olmayan sütunlar gizlenir.
.

Private Sub ToggleButton1_Click()
    If ToggleButton1 = False Then
        ToggleButton1.Caption = "GÖSTER"
        Columns("E:AM").EntireColumn.Hidden = False
        For sut = 5 To 39
        alan = Left(Cells(1, sut).Address(0, 0), 1) & 7 & ":" & Left(Cells(1, sut).Address(0, 0), 1) & 34
            If Evaluate("=SUBTOTAL(9," & alan & ")") = 0 Then Columns(sut).EntireColumn.Hidden = True
        Next
    Else
        ToggleButton1.Caption = "GİZLE"
        Range("E:AM").EntireColumn.Hidden = False
    End If
End Sub

 

[Korhan Ayhan]

Kusura bakmayın. Ben açıklamayı eksik yazmışım.

100. satıra aşağıdaki formülü uygulayın ve yana doğru sürükleyin.

=ALTTOPLAM(3;E7:E34)

 

[yenilik025]

Evet hocam filtreye göre "5-39 sütun" arasındaki boş satırların gizlenip gösterilmesi istemiştim ve oldu çok teşekkür ederim. olmuş.
Yabancı sitelerde dahil çözülememişti çok araştırmıştım. evet aradığım olmuş. çok sağolun.

Merhaba.

Umarım yanlış anlamadım.
Filtre kriterini değiştirdikten sonra sayfadaki düğmeye ilk tıklamada tüm sütunar görünür,
düğmeye ikinci tıklamada ise 4-34'ücü satırlarda veri olmayan sütunlar gizlenir.



.

Private Sub ToggleButton1_Click()
    If ToggleButton1 = False Then
        ToggleButton1.Caption = "GÖSTER"
        Columns("E:AM").EntireColumn.Hidden = False
        For sut = 5 To 39
        alan = Left(Cells(1, sut).Address(0, 0), 1) & 7 & ":" & Left(Cells(1, sut).Address(0, 0), 1) & 34
            If Evaluate("=SUBTOTAL(9," & alan & ")") = 0 Then Columns(sut).EntireColumn.Hidden = True
        Next
    Else
        ToggleButton1.Caption = "GİZLE"
        Range("E:AM").EntireColumn.Hidden = False
    End If
End Sub

 

[Ömer BARAN]

Benzer konu ve çözüm mutlaka vardır.

Verdiğim kod'un yaptığı işlem esas olarak çok basit, sütunlar için =ALTTOPLAM(9;...) formülü sonucunu bulup
(ki bu formül filtre sonucunda görünür durumdaki değerlerin TOPLAMını alıyor)
işlem sonucu 0 olan sütunları gizliyor, 0'dan büyük olanları sütunları görünür kılıyor.
İyi çalışmalar dilerim.
.

 

[yenilik025]

Hocam emeğinize bilginize sağlık,
Çok basit gibi görünüyor ancak bizim için hayat kurtarıyor
o derecede önemli çok sağolun saygılarımı sunuyorum.

1 den 31 e kadar olan günleri gösteren sütunlarda sadece ilgili günleri daralttıyorum
Sayfa da 31 gün yerine 3 gün görünüyor.Hayli işimi kolaylaştırdı.