Satır gizle göster

[M.ACAR]

İyi günler : Ekli dosya'da Cari sayfasında A9:A499 arasında verilerim var,ToogleButton ile gizle dediğimde Bu satırları gizlemesi Göster dediğimde göstermesi,Sayfa ismi değiştirildiğinde yine çalışmasını istiyorum,Bu konuda yardımcı olanlara teşekkür ederim.

 

[Orion1]

İsimleri A sütununda arıyor.Eğer ahmet ise gizliyor.
Diğer sayfalara koyacağınız butonlarada ayni kodu yazınız.
dosya ektedir.

Private Sub ToggleButton1_Click()
Dim i As Long, sat As Long
sat = Cells(65536, "A").End(xlUp).Row
If ToggleButton1.Value = False Then
    ToggleButton1.Caption = "GİZLE"
    Rows("9:499").Hidden = False
    Else
    ToggleButton1.Caption = "GÖSTER"
    Rows("9:499").Hidden = True
End If
End Sub

 

[M.ACAR]

Sayın:Evren GİZLEN Çok teşekkürler,Anladım ki ben yanlış sordum,İsme duyarlı olmayacak,Gizle dediğimde A9:A499 arasını gizlemesi Göster dediğimde A9:A499 arasını göstermesi Harf yada sayıya duyarlı olmayacak,yinede kod için teşekkür ederim başka işlerimde kullanabilirim.

 

[Orion1]

Sayın:Evren GİZLEN Çok teşekkürler,Anladım ki ben yanlış sordum,İsme duyarlı olmayacak,Gizle dediğimde A9:A499 arasını gizlemesi Göster dediğimde A9:A499 arasını göstermesi Harf yada sayıya duyarlı olmayacak,yinede kod için teşekkür ederim başka işlerimde kullanabilirim.

Dosyayı düzenledim.
2 numaralı mesajdan indirebilirsiniz.

 

[M.ACAR]

Çok teşekkürler Evren Hocam,İyi Geceler.

 

[Orion1]

Çok teşekkürler Evren Hocam,İyi Geceler.

Rica derim.
İyi çalışmalar.