Boş sütunları gizle

[SanaLSukuL]

Yapılan bir tabloda bazı sütunlarda veri olmadığından o sütunları gizlemek gerekiyor. Bu sütun gizleme ve gösterme olayını ToggleButton ile yapabilirmiyiz acaba .
Hocam tabloda aktif hücrenin bulunduğu satır ve sütun renklendirmesi olayı var leventm bey yapmış ama sağtuş a atamış userformu. Bu renk olayını sağ tuşta göstermeden ve userform kullanmadan sadece tabloda nasıl yaptırabiliriz. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda kullandığınız kodları aşağıdaki ile değiştirip denermisiniz.

Private Sub ToggleButton1_Click()
    If ToggleButton1 = True Then
    Rows.EntireRow.Hidden = False
    ToggleButton1.Caption = "Satır Gizle"
    End If
    If ToggleButton1 = False Then
    ToggleButton1.Caption = "Satır Göster"
    For X = 4 To 10
    If WorksheetFunction.CountA(Range(Cells(X, "B"), Cells(X, "F"))) = 0 Then Rows(X).Hidden = True
    Next
    End If
End Sub

Private Sub ToggleButton2_Click()
    If ToggleButton2 = True Then
    Cells.EntireColumn.Hidden = False
    ToggleButton2.Caption = "Sütun Gizle"
    End If
    If ToggleButton2 = False Then
    ToggleButton2.Caption = "Sütun Göster"
    For X = 2 To 6
    If WorksheetFunction.CountA(Range(Cells(4, X), Cells(10, X))) = 0 Then Columns(X).Hidden = True
    Next
    End If
End Sub

 

[SanaLSukuL]

elleriniz dert görmesin

çok teşekkürler COST_CONTROL bey

 

[SanaLSukuL]

Neden formüllerin olduğu fakat formül sonucu 0 olanları gizlemiyor anlayamadım olmadı gitti. Formülleri siliyorum gizliyor ama formüller olmayınca o kadar sayfayı da kontrol edemem olmadı yapamadım yardım ederseniz sevinirim teşekkürler.
Ekteki I. dönem sayfasını incelerseniz sevinirim.

 

[Mahmut Kök]

gördüğüm kadarıyla sizin

WorksheetFunction.CountA

koduna ihtiyacınız yok, zaten sadece o anda tek hücreye bakıyorsunuz, bu yüzden

If WorksheetFunction.CountA(Range(Cells(X, "B"), Cells(X, "B"))) = 0 Then Rows(X).Hidden = True

kodlarının olduğu yerlere sadece aşağıdaki kodu yazmanız yeterli olacaktır.

If Cells(X, "B") = 0 Then Rows(X).Hidden = True

diğer düğmedeki kodda da aynı değişikliği yapmanız gerekir.

 

[SanaLSukuL]

Teşekkür ederim ayardımınız için. Şu VBA yı öğrenemeyeceğim gideceğim bu kodlar nasıl yazılıyor ve ne anlama geliyorlar bir türlü anlayamadım gitti.

 

[matriksx]

meslik demişki
gördüğüm kadarıyla sizin

WorksheetFunction.CountA

koduna ihtiyacınız yok, zaten sadece o anda tek hücreye bakıyorsunuz, bu yüzden

If WorksheetFunction.CountA(Range(Cells(X, "B"), Cells(X, "B"))) = 0 Then Rows(X).Hidden = True

kodlarının olduğu yerlere sadece aşağıdaki kodu yazmanız yeterli olacaktır.

If Cells(X, "B") = 0 Then Rows(X).Hidden = True

diğer düğmedeki kodda da aynı değişikliği yapmanız gerekir.

ama yalnızca b sütünundaki öğrenci notalrı baz alınmadığı için
kodları
If WorksheetFunction.CountA(Cells(X, "B"), ........, Cells(X, "Z")) = 0 Then Rows(X).Hidden = True
şeklinde yaparsanız daha iyi netice alırsınız

 

[karaelmas4467]

koruma

gördüğüm kadarıyla sizin

WorksheetFunction.CountA

koduna ihtiyacınız yok, zaten sadece o anda tek hücreye bakıyorsunuz, bu yüzden

If WorksheetFunction.CountA(Range(Cells(X, "B"), Cells(X, "B"))) = 0 Then Rows(X).Hidden = True

kodlarının olduğu yerlere sadece aşağıdaki kodu yazmanız yeterli olacaktır.

If Cells(X, "B") = 0 Then Rows(X).Hidden = True

diğer düğmedeki kodda da aynı değişikliği yapmanız gerekir.

korumalı sayfada satır sütun gizle makroları çalışmıyor. korumalı da olsa çalışması sağlanabilir mi..
pardon pardon..

korumaya alırken satır sütun gizlenecek şekilde korumaya aldım..