Buton ile satır gizle ve gösterme

[metbes]

Merhaba,

Toggle buton ile belirli satırları gizlemek ve göstermek istiyorum. Örneğin A13 , A15 , A18 gibi ayrı ayrı satırlar.
Buna göre bir kod bulamadım. Yardımcı olursanız sevinirim.
Şimdiden herkese teşekkür ederim.

 

[turist]

Gizlenecek satırlarla ilgili bir "koşul", özellik var mı?
Örnek excel dosyanızı eklerseniz, daha hızlı ve doğru cevaplar bulabilirsiniz.
Excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

 

[metbes]

Gizlenecek satırlarla ilgili bir "koşul", özellik var mı?
Örnek excel dosyanızı eklerseniz, daha hızlı ve doğru cevaplar bulabilirsiniz.
Excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

Hayır sadece satır numarası başka ortak bir koşul yok. Bazı satırları istediğim zaman gelmesini bazen de gizlemek istiyorum.

 

[turist]

Örnek dosyanız olmadana "GENEL" bir kod anlamsız olabilir, konuyu uzatabilir.
Çözüm arıyorsanız, dosyanızın bir örneğini ekleyip açıklama yapabilirsiniz.

 

[metbes]

Örnek dosyanız olmadana "GENEL" bir kod anlamsız olabilir, konuyu uzatabilir.
Çözüm arıyorsanız, dosyanızın bir örneğini ekleyip açıklama yapabilirsiniz.

Ekte örnek bir dosya bulunmaktadır

 

[Ömer BARAN]

Merhaba.

Sayın @turist şu an çevrimiçi değil. Ben cevap vereyim.
Koşul filan yok demişsiniz ancak gördüğüm kadarıyla, bir düğme 6'ncı satırdan başlayarak, diğeri 7'nci satırdan başlayarak,
3'er satır atlayarak gizlensin/görünsün istiyorsunuz, yani bir kural/koşul var.

Sayfaya bir adet daha ToggleButton ekleyin (adı ToggleButton2 olsun).
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEYİ seçtiğinizde açılacak VBA ekranında
sağdaki boş alana aşağıdaki kodları yapıştırın ve düğmelere fareyle tıklayarak denemeler yapın.

Private Sub ToggleButton1_Click()
For sat = 6 To 16 Step 3
    Sheets("Ocak").Rows(sat & ":" & sat).EntireRow.Hidden = ToggleButton1.Value
Next
End Sub

Private Sub ToggleButton2_Click()
For sat = 7 To 16 Step 3
    Sheets("Ocak").Rows(sat & ":" & sat).EntireRow.Hidden = ToggleButton2.Value
Next
End Sub

 

[turist]

Dosyanız eklidir, inceleyiniz.

 

[metbes]

Dosyanız eklidir, inceleyiniz.

Teşekkür ederim

 

[turist]

Teşekkür ederim

Sağ olun, iyi çalışmalar.

 

[Ömer BARAN]

Bir geri bildirim olmadığına göre, benim verdiğim cevap görülmedi/denenmedi galiba.