Hücre'den satır gizleme

[M.ACAR]

Ekli dosya içinde ki işaretli olan hücreye tıklandığında A1:IV13 satırlarının gizlenmesi ,tekrar tıklandığında gösterilmesini istiyorum,Nasıl bir formül kullanılmalıdır.

 

[Ömer]

Merhaba,

Butonla yapmanızı tavsiye ederim.

Sub Gizle()
    Rows("1:13").EntireRow.Hidden = True
End Sub
 
 
Sub Göster()
    Cells.EntireRow.Hidden = False
End Sub

.