Satır Gizleme Hakkında

[bulentkars]

Arkadaşlar Merhaba

Ekte tabloda istediğim Eğer O sutununda ki satırlarda sıfır değer varsa ilgili satırı Gizlemek istiyorum.Örneğin O5,O20,O30 da sıfır değer varsa o5,o20,030 satırlarının gizlenmesini istiyorum.Bu konuda yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Sub Gizle()
For k = 2 To [O65536].End(3).Row
If Cells(k, "o") = 0 Then
Rows(k).EntireRow.Hidden = True
End If
Next
End Sub

Sub Göster()
Cells.EntireRow.Hidden = False
End Sub

.

 

[bulentkars]

Ömer Bey
,
İlginiz için çok teşekkür ederim.Emeğinize sağlık