Satır Gizleme

[yasso38]

Merhaba;

Ek'teki dosyada ToggleButton ile bir sütuna göre boş satırları gizliyorum.

Bu koda ilava koşul eklemek istiyorum. Açıklaması dosyada.

Teşekkürler;

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Dosyayı günceleldim.
Gerekli değişiklik yapıldı.

 

[yasso38]

Teşekkürler, fakat istediğim bu değil.

D sütunundaki boş satırlar gizlenecek fakat konu başlığı olan satırlarda (B sütununa göre) D sütunu boş dahi olmasa gizlenmeyecek. Yani iki koşula göre gizleme yapacak.

Daha kısa olarak anlatırsak, Eğer D sütunu boş ve B sütununda konu başlığı yoksa o satırı gizle diyeceğiz.

Not: Konu başlıkları kalın olarak yazılı.

 

[Orion1]

Gerekli değişikliği yaptım.
İsterseniz bir bakın ,olmuşmu?
Önceki mesajımdan indirebilirsiniz.

 

[yasso38]

Sayın Orion2 olmamış,

Tam olarak anlatamadım herhalde.

Yapmak istediğim,

Miktar karşılığı boş olanları gizleyecek.

Fakat B9,B10,B11,B12 vb. satırlarda konu başlığı olduğu için o satırları D sütunundaki miktar sıfır dahi olsa gizlemeyecek.

 

[veyselemre]

Şöyle deneyin.

Private Sub ToggleButton2_Click()
    Application.ScreenUpdating = False
    Rows.EntireRow.Hidden = False
    If ToggleButton2.Value Then
        ToggleButton2.Caption = "GİZLE"
    Else
        ToggleButton2.Caption = "GÖSTER"
        For X = [a65536].End(3).Row To 4 Step -1
            If Cells(X, "D") = 0 And (Cells(X, "B").Font.Bold = False Or (Cells(X, "B").Font.Bold = True And Cells(X, "B") = "")) Then Rows(X).EntireRow.Hidden = True
        Next
    End If
    Application.ScreenUpdating = True
End Sub

 

[yasso38]

Teşekkürler,

Tam olarak istediğim buydu.

 

[Orion1]

Sayın Orion2 olmamış,

Tam olarak anlatamadım herhalde.

Yapmak istediğim,

Miktar karşılığı boş olanları gizleyecek.

Fakat B9,B10,B11,B12 vb. satırlarda konu başlığı olduğu için o satırları D sütunundaki miktar sıfır dahi olsa gizlemeyecek.

Benmi yanlış dosyaya baktım bilmiyorum.
Makro çalıştığına B9 ,B10 ;B11 ,B12 satırları gizlenmiyor.