Excel 2007 de satır gizleme

[ocamurlu]

Saygıdeğer arkadaşlar bi excel 2007 excel dosyam var sayfada A51 den itibaren sayfa sonuna kadar gizlemek için makro kodu nasıl yapabilirim. şimdiden ilgi ve alakanız için teşekkür ederim...

 

[YUSUF44]

Aşağıdaki kod 51. satır gizliyse 51. satırdan itibaren tüm satırları açar, 51. satır gizli değilse 51. satırdan itibaren tüm satırları gizler:

Sub gizle_goster()
If Rows(51).Hidden = False Then
    Rows("51:" & Rows.Count).Hidden = True
Else
    Rows("51:" & Rows.Count).Hidden = False
End If
End Sub

Sadece gizlemek için ise aşağıdaki gibi kullanabilirsiniz:

Sub gizle()
Rows("51:" & Rows.Count).Hidden = True
End Sub

 

[ocamurlu]

ilginiz için teşekkur ederim QYUSUF44 tam istediğim gibi.