Goster Sakla Butonu

[quote author=”- buhsra2911″]Merhaba eklemiş olduğum excelde buton var benim istediğim listenin gizli olması yani isimler görünmüycek fakat butona basıldığında isimlar görünücek yapmalıyım çalışıyorum işyerinden istiyorlar.şimdiden teşekkürler[/quote]

Merhaba dosyaniza bir toggle buton ekledim ve sakla ve goster seklinde toggle butonu ayarladim, dosyanizi ekte gorebilirsiniz.

Istenilen;

2. satirdan 6. satira kafar dosyada istenildiginde saklanabilmesi

Kod;

Private Sub ToggleButton1_Click()
Dim i As Long, c As Range, say As Variant
Application.ScreenUpdating = False
If ToggleButton1.Value = False Then
Range("2:6").EntireRow.Hidden = True
ToggleButton1.Caption = "Goster"
Else
Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "Sakla"
End If
Application.ScreenUpdating = True
End Sub

Goster Sakla Butonu

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Goster Sakla Butonu” için 10 yorum

  1. Merhaba busra hanim konu uzerinden bize yazabilirsiniz, tekrardan soru gondermenize gerek yok. Kodu herhangi bir yere eklemenize gerek yok, kodu biz buton izin tanimladik, ekteki dosyadaki butonu tekrar test ettim calismakta

    1. Mustafa bey tekrara merhaba bu çalışma excel 2010 içinde geçerli midir?Sizin dosyanızın uzantısı .xlsm oluyo sanırım.Ben indirdiğimde excel dosyasının üstünde ünlem(!) işareti var tam anlayamadım ben sizin gönderdiğiniz çalışıyor fakat ben aynısını yaptığımda çalışmıyor.:(

      1. Merhaba,

        Dosyanin uzantisinin XLSM olmasi o dosyada makro bulunabilecegi anlamina gelmektedir, makro yazdiginiz bir dosyayi XLSX olarak kaydettiginizde size makrolarin silinecegine dair bir uyari vererek kaydetme tercihinde bulunursaniz yazdiginiz tum kodlari silmektedir.

        Bu nedenle dosyaniza yukaridaki kodu yazdiktan sonra dosyanizi ya XLS 97-2003 yahut XLSM olarak kaydetmelisiniz.

        iyi calismalar.

        1. Mustafa bey tekrar selamlar önce ilginiz ve bilginiz için teşekkürler bu konunun bir videosu varmı acaba? Sanırım böyle daha iyi anlıycam.

          1. ne yazikki konuyla ilgili bir videomuz yok, konu icin haftasonu bir video ders hazirlayabilirim, aksam ekran paylasimi ile gosterebilirim, yahut siz yaptiginiz dosyayi tekrardan soru sorar gibi gonderirseniz neyi eksik yapmissiniz kontrol edebilirim, iyi calismalar.

  2. Birden fazla araligi saklama arada virguller ile yapilabilir;

    Private Sub ToggleButton1_Click()
    Dim i As Long, c As Range, say As Variant
    Application.ScreenUpdating = False
    If ToggleButton1.Value = False Then
    Range(“4:4,6:45,47:70”).EntireRow.Hidden = True
    ToggleButton1.Caption = “Goster”
    Else
    Cells.EntireRow.Hidden = False
    ToggleButton1.Caption = “Sakla”
    End If
    Application.ScreenUpdating = True
    End Sub

    1. Mustafa bey teşekkürler; şöyleki dediğiniz gibi VERİ sekmesinde gruplamayı yaptım tabi ki o hem daha kolay hemde çabuk ama o şekilde herkesin kafası karıştı benim de aklıma bu yöntem geldi.
      İyi çalışmalar

      1. Bence iki farkli opsiyonu olan toggle buton kullanimi hem bu calisma icin hemde ileride karsilasilabilecek durumlar icin guzel bir alternatif. Sitemizin amaci bir bakima alternatif yontemler sunabilmek ve calisma ufkunu ve hizini gelistirek, keske her konumuzun bir yarari oldugunu gorebilsek, iyi calismalar.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 3 =