Togglebutton ile Sütunların gizlenmesi

[mehmet25]

Merhaba arkadaşlar,
Ekte gönderdiğim örneği yine bu siteden almıştım.Bu örnekte togglebutton 1 ile boş satırlar gizlenebiliyor.
Benim öğrenmek istediğim;
1-Çizelgede Togglebutton 2 ile boş sütunlar nasıl gizlenebilir?
2-Çizelgede kaç sütunda veri varsa toplamı o sutün sayısına bölmesini istiyorum.Mesala 5 sütun var sonunda toplam sütunu var ben 3 sütüna veri girip diğer sütunları gizlediğimde toplamı 3 e bölsün.Öyle bir formül istiyorum.Teşekkür ederim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
[C1,E1].Columns.Hidden = 0
Else
[C1,E1].Columns.Hidden = 1
End If
End Sub

 

[mehmet25]

TeŞekkÜrler

Sn:Seyit Hocam cevabınız için teşekkür ederim .2. sorunum hakkında bir tavsiyeniz olur mu?