checkbox..toggle button nasıl???

[burch1975]

arkadaşlar ben kendi çapında makro olayını çözmeye çalışan bir ademim..
siz üstadlara bişi sormak istiyorum.şöyleki;
ben bir userform hazırladım.haliyle çalıştırdığım zaman arka planda excelde çıkıyor.hadi bunu forumu incelerken buldum.artık excel çıkmıyor bir iki saniyeliğine gözüküp kayboluyor.işte konu bu..ben userformun bi köşesine checkbox yada toggle button koyayım diye düşündüm. mesela:
checkbox olursa tiklediğimde arkaya excel gelir,tiki kaldırdığımda gider hesabı..
toggle button da aynı hesab..işte ben bu olayı bulamadım..çok basit bişi olduğuna eminim ama.dedim ya kendi çapımda takılıyorum..bilen biri yardım ederse sevinirim..

 

[Levent Menteşoğlu]

Checkboxa aşağıdaki kodu yazın.

Private Sub CheckBox1_Click()
Application.Visible = Evaluate("NOT(" & CheckBox1 & ")")
End Sub

 

[burch1975]

Hemen deniyorum..

 

[burch1975]

Kusura bakmayın makrolarla uğraşmaya başladığımdan beri excelim çok geç açılmaya başladı.
ilginize ve hızlı cevabınıza teşekkür ederim.istediğim gibi oldu. tekrar saolun..

 

[Levent Menteşoğlu]

Kusura bakmayın makrolarla uğraşmaya başladığımdan beri excelim çok geç açılmaya başladı.
ilginize ve hızlı cevabınıza teşekkür ederim.istediğim gibi oldu. tekrar saolun..

Rica ederim. Sorununuzun çözüldüğüne sevindim. Eğer işaretlediğinizde excelin gelmesini isterseniz kodu aşağıdaki ile değiştirin.

Private Sub CheckBox1_Click()
Application.Visible = CheckBox1
End Sub