CheckBox ile buton gizleme ve gösterme hakkında

Katılım
29 Mart 2019
Mesajlar
37
Excel Vers. ve Dili
Macro
Altın Üyelik Bitiş Tarihi
01-04-2020
Herkese Merhaba,
İnternette aradım ama bulamadım.Burada da Excel üzerinde vardı.İstediğim sadece kodu olup olmadığı.Vba Macro ile userform'da bir proje hazırladım.Hataya sebep olmasın diye basit bir şekilde userform üzerinde Checkbox'a tıkladığımda buton gözüksün.Tiki kaldırdığımda ise gizlensin.Yada tam tersi.
Bu konu hakkında sizlerden yardım rica ediyorum.Ve kodu hangi bölüme yazmalıyım.

Saygılarımla
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,334
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Aşağıdaki kodu kullanabilirsiniz. Aynı kodu UserForm_Initialize() olayına da yazarsanız açılışta da gizlenmesini sağlarsınız.
İyi çalışmalar...
Kod:
Private Sub CheckBox1_Click()
CommandButton1.Visible = CheckBox1.Value
End Sub
 
Katılım
29 Mart 2019
Mesajlar
37
Excel Vers. ve Dili
Macro
Altın Üyelik Bitiş Tarihi
01-04-2020
Hay Allah Razı Olsun...
Sitedede az önce benzer bir konu buldum.Açılışta gizleniyor ama checkbox tıkladığımda hata veriyordu tam yazıyordum,sizden cevap geldi.
Tekrar Teşekkürler
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,334
Excel Vers. ve Dili
2007 Türkçe
Rica ederim, Allah hepimizden razı olsun.
İyi çalışmalar...
 

üveyin

Altın Üye
Katılım
24 Nisan 2022
Mesajlar
115
Excel Vers. ve Dili
2016 tr
Altın Üyelik Bitiş Tarihi
24-04-2027
hocam öncelikler kolay gelsin,

normal sayfa içinde checkboxlarım var tiklendiğinde A21:F78 tikli olanlar kalsın tik atılmayan satırlarım gizlensin ama işim bitince bütün satırların tekrardan gözükmesi mümkün mü? birde A21:A78 sutunda sıra numarasıda seçili satırların 1 den başlayıp kaç satır varsa o numaraları yazabilir bir kod için yardımlarınıza şimdiden teşekkür ederim kolay gelsin.


Merhaba,
Aşağıdaki kodu kullanabilirsiniz. Aynı kodu UserForm_Initialize() olayına da yazarsanız açılışta da gizlenmesini sağlarsınız.
İyi çalışmalar...
Kod:
Private Sub CheckBox1_Click()
CommandButton1.Visible = CheckBox1.Value
End Sub
 
Üst