Satır gizleme

[ozkovlu]

Merhabalar;
Aşağıda ki tabloda fiyat tutarı sıfı(0) olan satırların gizlenmesini veya Hakediş numarasından sonraki satırların gizlenmesini nasıl sağlayabiliriz.

Hakediş Numarası: 3

SIRA NO FİYAT FARKI TUTARI

1- 6.624,00 ₺
2- 10.408,00 ₺
3- 10.408,00 ₺
4- 0,00 ₺
5- 0,00 ₺

 

[Emir Hüseyin Çoban]

. . .

Basit, yapılabilir...

Gerçek tablonuzdan bir örnek oluşturursanız dosya yapısına göre kod yazmak daha doğru olur.

. . .

 

[ozkovlu]

Hüseyin bey;
Dosya ekleme yeri çıkmıyor. Önceden dosya ekliyordum şimdi ekleyemiyorum.

 

[Emir Hüseyin Çoban]

. . .

Aşağıda imzamdaki önerdiğim siteye yükleyip. Buraya linki yazabilirsiniz.

. . .

 

[ozkovlu]

[link=http://www.dosyayukleyin.com/do.php?id=5419]İSGE NAKİT-HAKEDİŞ-1.zip[/link]

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    Dim S As Worksheet: Set S = Sheets("icmal")
    S.Rows("8:19").EntireRow.Hidden = False
    
    For i = 8 To 19
        If S.Cells(i, "I") = 0 Then
            S.Rows(i).EntireRow.Hidden = True
        End If
    Next i
    
End Sub

. . .

 

[ozkovlu]

Merhabalar Hüseyin bey;
Göndermiş olduğunuz kod için teşekkür ederim. Ancak "http://[link=http://www.dosyayukleyin.com/do.php?id=5421]İSGE NAKİT-HAKEDİŞ-1.zip[/link]
linkindeki dosyada; icmal, liste, yeşil defter, puantaj sekmeleri içinde uygulamak istiyorum.
Aynı zamanda gizlenen satırları göstermek istediğimizde de gösterebilelim.
Saygılarımla...

 

[Emir Hüseyin Çoban]

. . .

Bir kaç satıra örnek olarak
Liste ve yeşil defter sayfalarında hangi satırlar gizlenmeli yazın.

Kapalı sütunları göstermek için şu kodu kullanabilirsiniz.

Sheets("[COLOR="DarkRed"]sayfaismi[/COLOR]").Rows("[COLOR="DarkRed"]8:19[/COLOR]").EntireRow.Hidden = False

Rows("başlangıc satırı : bitiş satırı")

. . .

 

[ozkovlu]

Selamün Aleyküm;
Liste,Yeşil defter, Puantaj sekmelerinde Hakediş numarasından sonraki sekmelerin gizlenmesini istiyorum.
Yani;
12 adet hakkediş var. Ben 8 nolu hakkedişi yaptığımda, 9, 10, 11, 12 nolu hakkediş satırlarının gizlenmesinin sağlanması.
Saygılarımla...

 

[ozkovlu]

Yardımcı olduğunuz için TESEKKÜRLER .