[sametguler]

Aşağıda belirtilen kodlar sayfada A1 - A20 arasında herhangi bir hücre temizlenirse, temizlenen o hücreye ait satır otomatik olarak gizlenmektedir.

Fakat içinde formül olanda var, formül olmayanda var. Formül olan hücreler sonucu 0 (sıfır) yada "" verince satır gizlenmiyor. Dolu olarak algılıyor.

Ayrıca hücrelerde formül olduğu için hücre değeri değişince yani <>"" or >0 otomatik satırı göstermesi gerekiyor.
Bu duruma göre nasıl bir düzenleme yapmalıyız.

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
         
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

[sametguler]

Yukarıda yazılı olan şartlara bağlı olarak butona bağlı olarak farklı kod yapabilirmiyiz?

[şahin]

Ekte

Kitap1.rar

[sametguler]

Aşağıdaki kod VERİ sayfasının Private Sub Worksheet_Change(ByVal Target As Range)
olayına yazılacaktır.

Başka sayfalar VERİ sayfasından veri çekiyor. VERİ sayfasına girilen verilere göre, diğer sayfalarda satır gizlemesi yapacak.
Bu kodu nasıl düzenleyebiliriz. Ayrıca birden fazla Sayfada satır gizlemesi için ( her sayfada farklı satır aralıkları gizlenecek ) uyarlamam gerekiyor.
Sizden ricam PUANTAJ, TOPLUBORDROMAAŞ, TOPLUBORDROTEDİYE sayfalarına uygulanacak. Yardımcı olacak hocam sayfalardaki satır aralıklarını rastgele yazabilir.
Ben kendi çalışmama uyarlarım. Dosya boyutu büyük olduğu için eklemek istemedim. Saygılarımla. Şimdiden teşekkür ederim.

Kod: Tümünü seç

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Or xRg.Value = 0 Then
                xRg.EntireRow.Hidden = True
         
            ElseIf xRg.Value <> "" Or xRg.Value > 0 Then
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


[sametguler]

Puantaj sayfasındaki butona basınca sadece ilk sırada yazılı PUANTAJ sayfasını gizliyor. Diğer sayfalarda işe yaramıyor.

Buton ile belirtilen aralıklar gizlenirken, aynı zamanda;
PUANTAJ sayfasındaki A19:AU218 aralığındaki boş olan sütunlar ve
TOPLU BORDRO MAAŞ sayfasındaki A18:BZ217 aralığındaki boş olan sütunlar ve
TOPLU BORDRO TEDİYE sayfasındaki A18:BZ217 aralığındaki boş olan sütunları da gizlemek istiyorum. Mümkün mü acaba?
Teşekkür ederim şimdiden...