[ÇÖZÜLDÜ] Aynı sayfada birden fazla onay kutusu ile şartlı satır gizleme

[enteresan]

Aynı sayfada içerisinde 1 nci satıra açacağım onay kutularına bağlı olarak çeşitli satırları gizlemek istiyorum. Yani, diyelim ki 1 nci satırda A1 de, D1 de F 1 de olmak üzere 3 tane onay kutusu var. A1 seçili iken 13:28 satırları görünsün diğerleri gizlensin, D1 seçili iken 3:15 satırları ve 21:32 satırları görünsün diğerleri gizlensin, F1 seçili iken 24:35 satırı, 41:67 satırı ve 85:123 satırları görünsün diğerleri gizlensin istiyorum. Böyle bir makro mümkün mü. Yardımlarınız için şimdiden teşekkür eder, saygılar sunarım...

 

[Levent Menteşoğlu]

A1 hücresine bir checkbox yerleştirin ve checkboxa aşağıdaki kodu kopyalayın. Diğerlerinide siz aynı şekilde yapabilirsiniz.

Private Sub CheckBox1_Click()
Rows("13:28").Hidden = CheckBox1
End Sub

 

[enteresan]

Sayın Leventm,
Soruyu yazdıktan sonra 1 saat geçmesine rağmen sizin dışınızda kimse bir cevap vermedi. Acaba çok zor bi sorumu sordum diye düşünmeye başlamıştım. Yine hızır gibi yetiştiniz. Her şey gönlünüzce olsun inşallah. Saygılarımla.....

 

[Ali]

Soruyu yazdıktan sonra 1 saat geçmesine rağmen

Forumda sorulara hızlı cevap verilmesi sanırım 1 saat'i sizin için uzun bir süre olduğu fikrini doğurmuş.

 

[enteresan]

Sayın Ali kardeşim, hatalı bir cümle yazdıysam özür dilerim. Forumda sayın levent bey ve sizler sayesinde sorulara o kadar hızlı cevaplar veriliyor ki, bazen soruyu gönderdikten sonra sayfa yenilenene kadar cevap gelmiş oluyor. Onu kasdederek öyle yazdım. Bilginize ve tecrübenize saygım vardır. Bu forumda bilgilerini esirgemeyen herkesten ALLAH razı olsun.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[enteresan]

Ekli dosyayı inceleyin.

Sayın leventm,
ilginize teşekkür ederim.Zahmet oldu size.
Saygılarımla......

Bu soruya uğraşmamanız için sildim. Çok teşekkür ederim.....

 

[Ali]

Bende bir örnek hazırlamıştım.İşinizi görür umarım.

 

[enteresan]

Sayın Ali kardeşim,
aslında sorduğum sorunun tam olarak cevabı bu şekilde idi. Leventm kardeşimin gösterdiği yoldan bişeyler yapmaya çalıştım. Biraz önceki sorduğum sorunun cevabına da sayenizde gerek kalmadı. Her ikinize de minnettarım. Saygı ve selam ile.......