• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Satır gizle göster

Katılım
12 Şubat 2009
Mesajlar
451
Excel Vers. ve Dili
2010 Türkçe
İ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.
 

Ekli dosyalar

İsimleri A sütununda arıyor.Eğer ahmet ise gizliyor.
Diğer sayfalara koyacağınız butonlarada ayni kodu yazınız.:cool:
dosya ektedir.:cool:
Kod:
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
 

Ekli dosyalar

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.
 
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.:cool:
 
Geri
Üst