[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...

[sametguler]

Konu Günceldir.

[Kasnic]

Her sayfa için referans olarak bir satır belirleyiniz örneğin A1:BZ1 gibi. Sonra aşağıdaki kodu deneyiniz.

Kod: Tümünü seç

Sub Gizle()
Range("A1:BZ1").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

[Kasnic]

Samet bey, yeni farkettim formullü hücreler gizlenmiyor demişsiniz. Bunun için yine bir referans aralığı geçiyoruz örneğin 19 uncu satırdaki sütunlar gibi. Yalnız burada hücre değerini ben boş olarak ayarladım. Sizde formüllerinizi eğer sıfır ise boş olarak ayarlarsanız sorun kalmaz.

Kod: Tümünü seç

Sub sutun_gizleme()
Dim a As Integer
Dim gk As Integer

On Error Resume Next
gk = Cells(19, 256).End(3).Column
For a = 1 To gk
If Cells(19, a) <> "" Then
Columns(a).Hidden = False
Else
Columns(a).Hidden = True
End If
Next a
End Sub

Sub goster_sutun()
Columns.Hidden = False
End Sub