Boş değer veren sütunların tooglebutton ile gizlenmesi

[ilhaan]

Herkese iyi günler. Benim bir tablom var, bu tabloda 212. satırda boş olan sütunların tooglebutton yadımı ile gizlenmesi ve gösterilmesi. Ancak 212. satırdaki bu boş değerler fg:gk sütunları arasını kapsayacak. Satır gizlemesini yaptım ancak sütunların parametrelerini giremediğim için gizleme ve gösterilmesini yapamadım. Yardımcı olursanız sevinirim. Teşekkürler...

 

[Orion1]

Dosyanız ektedir.

Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
    Range("FC212:GK212").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
    ToggleButton2.Caption = "GÖSTER"
    Else
    Range("FC212:GK212").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = False
    ToggleButton2.Caption = "GİZLE"
End If
End Sub

 

[ilhaan]

teşekkürler...

Hocam yardımlarınız için çok teşekkür ederim... selametle...

 

[Orion1]

Hocam yardımlarınız için çok teşekkür ederim... selametle...

Rica ederim.
İyi çalışmalar.

 

[ilhaan]

Deneyimlerinizi paylaşmak umuduyla

Hocam yaklaşık 3 aydır bir hastanenin nöbet programını yapmaya çalışıyorum. Tabiiki de amatörce bir çalışma. Sonuçta yaptığıma program da denirse tabii. Bittiği zaman size göndersem, görüşlerinizi, daha iyi nasıl yapılabilirse deneyimlerinizi benimle paylaşır mısınız? Şimdiden teşekkürler.

 

[Orion1]

Hocam yaklaşık 3 aydır bir hastanenin nöbet programını yapmaya çalışıyorum. Tabiiki de amatörce bir çalışma. Sonuçta yaptığıma program da denirse tabii. Bittiği zaman size göndersem, görüşlerinizi, daha iyi nasıl yapılabilirse deneyimlerinizi benimle paylaşır mısınız? Şimdiden teşekkürler.

Nöbet programı işine girmem.
Söylenişi çok basit gibi geliyor adama ama bir sürü olayı kontrol altında tutmak lazım.
Her an yazılan programın dışında bir gelişme olabilir.Nöbetçi hastalanabilir mesela.Düzen allk bullak olur.
Ben onun için nöbet işine girmiyorum.Benim diyen adamı gerer.
Size kolay gelsin.

 

[ilhaan]

Slmlar;

Hocam anladığım kadarıyla sütten ağzınız yanmış. Ama benim yapmaya çalıştığım programa bir göz atarsınız heralde sonra... Bir yardıma daha ihtiyacım var. Gizle-göster butonu doğru çalışıyor. Ancak fc212:gk212 satırında hiç bir değer atanmamışsa doğru çalışıyor. Ancak benim programımda bu satırlarda bağ yağıştır komutu var. Dolayısıyla diyelim ki fc212 ye =E3 bağ yapıştır dediğimde buton çalışmıyor. Bunun bir çözümü var mı? Şimdiden tekrar tekrar teşekkür ediyorum.

 

[ilhaan]

Dosyayı eklemeyi unuttum hocam;

Dosya ektedir.

 

[Orion1]

Dosya ektedir.

Dosyanız ektedir.
Daha önceki sorunuz boş olanlar içindi.
Oysa şimdi sıfır olanlar için istiyorsunuz.
Dolayısı ile her şarta ayrı kod yazılır.

Private Sub ToggleButton2_Click()
Dim hcr As Range
If ToggleButton2.Value = True Then
    For Each hcr In Range("FC212:GK212")
        If hcr.Value = "" Or hcr.Value = 0 Then hcr.EntireColumn.Hidden = True
    Next
    ToggleButton2.Caption = "GÖSTER"
    Else
    Range("FC212:GK212").EntireColumn.Hidden = False
    ToggleButton2.Caption = "GİZLE"
End If
End Sub

 

[ilhaan]

Teşekkürler...

Hocam ellerinize sağlık.

 

[Orion1]

Hocam ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[gurgef]

Bu konuda geçen kodlar oldukça işime yaradı. Emeği geçen arakadaşlara teşekkür ediyorum.