Ozel sekmedeki checkboxları işaretlemek

[cagataybaser]

Merhabalar,
Özel sekmemde yarattığım 3 tane checkbox(işaret kutusu) var aşağıdaki xml kodlarıyla yaptım.

<checkBox id ="F20"label="F20"tag="F20"onAction="Show_Column" />
<checkBox id ="F21"label="F20 F21 LCI"tag="F-21 LCI"onAction="Show_Column" />
<checkBox id ="F22"label="F22"tag="F22"onAction="Show_Column" />

Ve aşağıdaki makroya bir kod ekleyerek hepsini işaretlemek istiyorum yardımcı olursanız çok sevinirim.

Sub Button29_Click(control As IRibbonControl)
  Sheets("Main Sheet").Columns("B:ZZ").Hidden = True
End Sub

 

[Korhan Ayhan]

Açtığınız diğer başlıkta önerdiğim çözüm işinize yaramadı mı?

 

[cagataybaser]

Merhaba Korhan Bey,
Oncelikle cevap icin tesekkur ederim. Onerdiginiz cozum uzerine gittim ama bir cozum bulamadim.Butona bastigimda 2 tane checkbox"un ikisini de isaretlemek.

 

[Korhan Ayhan]

Benim önerdiğim çözümde özel bir menü ekleniyor.

O menüde 4 seçenek oluşuyor. Seçenekleri tıkladığınızda işlemler yapılıyor.

 

[cagataybaser]

Korhan Bey yardimlariniz icin tesekkur ederim fakat menu acilmadi bende excel sayfasinda bir de sifirla butonuna tiklandiginda f2 ve f3 checkboxlarinin degerleri resetlenebilirmi?

 

[Korhan Ayhan]

Ben direk kodlarla menü oluşturmuştum. Deneyerek size önermiştim.

2007 versiyon kullandığınız için sorun yaşamış olabilirsiniz.

 

[cagataybaser]

Yardimlariniz icin cok tesekkurler korhan bey ama dediginiz gibi 2007 versiyonu oldugu icin calismadi. Butona tiklandiginda butun checkboxlari isaretleyen bir kod yazabilirmiyiz