Onay butonunu şarta bağlı olara aktif hale getirmek?

[mechanical007]

Arkadaşlar,

Onay butonunu şarta bağlı olara aktif hale getirmek mümkün mü?

Amacım, kullanıcıyı mutlaka girilmesi gereken alanlarda zorlamak ve eksik bilgi girişini önlemek.

Açıkçası yapmak istediğim şu; "kilitli olmayan" ya da görülebilir frame içindeki option buton, textbox, chekbox, combobox ların tamamının seçili yada boş olmaması durumunda onay butonu aktif hale gelsin, aksi takdirde pasif olsun. ( bunu yaparken bu butonların isimlerini tek tek yazmadan tabiki )

Bir de eğer mümkünse, bunlardan bazıları boş olsada ( birkaç tane ve isimlerini belirterek ) onay butonu aktif olsun.

Yardımlarınız için şimdiden teşekkürler.

Saygılarımla.

 

[TURISSEMOS]

Umarım işine yarar

If Textbox.value=false then
Commandbutton.Enabled=False
Else
Commandbutton.Enabled=True
End If

 

[mechanical007]

If Textbox.value=false then
Commandbutton.Enabled=False
Else
Commandbutton.Enabled=True
End If

Öncelikle ilginize teşekkür ederim. Belirttiğinizi yapardım fakat programı hem yazması uzun hem işleyişi yavaş. İlk mesajımda belirttiğim gibi, isimleri tek tek yazmadan nasıl olur?

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Seyit Tiken]

Sorunuzdan aşağıdaki anlamı çıkardım. Örnek kodu çalışmanıza uyarlamaya çalışınız.

Private Sub TextBox1_Change()
For s = 1 To 4
If Me.TextBox1 = "" Then Controls("CheckBox" & s).Value = 0
Next
End Sub

 

[mechanical007]

Arkadaşlar,

Onay butonunu şarta bağlı olara aktif hale getirmek mümkün mü?

Amacım, kullanıcıyı mutlaka girilmesi gereken alanlarda zorlamak ve eksik bilgi girişini önlemek.

Açıkçası yapmak istediğim şu; "kilitli olmayan" ya da görülebilir frame içindeki option buton, textbox, chekbox, combobox ların tamamının seçili yada boş olmaması durumunda onay butonu aktif hale gelsin, aksi takdirde pasif olsun. ( bunu yaparken bu butonların isimlerini tek tek yazmadan tabiki )

Bir de eğer mümkünse, bunlardan bazıları boş olsada ( birkaç tane ve isimlerini belirterek ) onay butonu aktif olsun.

Yardımlarınız için şimdiden teşekkürler.

Saygılarımla.

Arkadaşlar,

Yukarıda açıkladığım gibi, komut yazımı isimlere bağlı kalmadan olmalı. İsimlerin belli bir düzeni yok. optionbutton1,..2,..3 değil yani.

 

[geren36]

tek tek yazmamak için yapacağınız ilk şey, objelerinizi (chekbox, optionbutton v.b.) belirli bir düzene sokmak olmalıdır. Aksi takdirde talebiniz gerçekleşmez. Daha sonra seyit bey' in yazdığı kodu kendinize göre değiştirin.

 

[Levent Menteşoğlu]

İstediğinizi kısa bir kodlama ile çözmek pek mümkün görünmüyor, ancak benzer nesneler class module ile ortak hareket ettirilerek bir miktar kısalma sağlanabilir. Ancak dosyanızda hangi verilerde işaretleme zorunlu olacaktır ve hangi commandbutton aktif hale getirilecektir bunu belirtmemişsiniz.

 

[mechanical007]

İstediğinizi kısa bir kodlama ile çözmek pek mümkün görünmüyor, ancak benzer nesneler class module ile ortak hareket ettirilerek bir miktar kısalma sağlanabilir. Ancak dosyanızda hangi verilerde işaretleme zorunlu olacaktır ve hangi commandbutton aktif hale getirilecektir bunu belirtmemişsiniz.

mechanical007 tarafından gönderildi
Arkadaşlar,

Onay butonunu şarta bağlı olara aktif hale getirmek mümkün mü?

Amacım, kullanıcıyı mutlaka girilmesi gereken alanlarda zorlamak ve eksik bilgi girişini önlemek.

Açıkçası yapmak istediğim şu; "kilitli olmayan" ya da görülebilir frame içindeki option buton, textbox, chekbox, combobox ların tamamının seçili yada boş olmaması durumunda onay butonu aktif hale gelsin, aksi takdirde pasif olsun. ( bunu yaparken bu butonların isimlerini tek tek yazmadan tabiki )

Bir de eğer mümkünse, bunlardan bazıları boş olsada ( birkaç tane ve isimlerini belirterek ) onay butonu aktif olsun.

Yardımlarınız için şimdiden teşekkürler.

Saygılarımla.

Sayın geren36 ve leventm,

Öncelikle ilginize teşekkür ederim.

Sayın leventm,

İki onay kutusundan herhangibiri için bu söylediklerim geçerli. Ama ikilemde bırakmamak adına comandbutton1 için olsun diyelim. Hangi nesnelerin şart olduğu ilk mesajımdaki gibidir. Yani şu adlı combobox diye birşey söyleyemiyorum. Çünkü, kullandığım nesneler, program gereği kimi zaman kilitli, boş, görünemez kimi zaman değil. Programım baya uzun. Bana göre biraz yavaş çalışıyor. ( tabi bilgisayarımda biraz eski model ) Bu nedenle hem kısa cümlelerle istediğimi yapabileyim hem de programın hızını daha fazla düşürmeyeyim.

Saygılarımla.

 

[mechanical007]

Sayın leventm,

Çözümü var mı?

 

[mechanical007]

Bu konu unutuldu mu? Neden cevap veren yok?

Lütfen yardım.

Saygılarımla

 

[mechanical007]

Sayın Uzman Arkadaşlar,

Bu yapılamaz mı? En azından olup olmayacağını söyleyin.

Saygılarımla.

 

[Levent Menteşoğlu]

Olmaması için bir sebep yok, yalnız her nesne grubu için ayrı kodlama yazmak gerekirki buda yüklü miktarda kod yazılması demektir. Eğer hangi nesneler işaretli veya dolu olduğunda commandbutton aktif olacaktır bunu belirtirseniz yardımcı olmaya çalışırız.

 

[unur]

Mrb Arkadaşlar işlem çok basit olmasına rağmen kafam durdu;
Bir buton var ve bir işlem yaptırıyoruz.
Örn. A1 hücresine "işlem yapıldı" yazdırıyoruz ve bununla berber butonu pasif hale getiriyoruz buraya kadar proplem yok.
A1 hücresindeki işlem yapıldı yazısını sildiğimde aktif hale getiremedim.
Yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

Örnek dosyanız olmadığı için ben yeni bir excel dosyasında sayfa1 üzerine 1 buton ekledim ve aşağıdaki kodları sayfanın kod penceresine yazdım
İnceleyin.

Private Sub CommandButton1_Click()
    Range("A1") = "İşlem Yapıl"
    Sayfa1.CommandButton1.Enabled = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If [A1] = "" Then Sayfa1.CommandButton1.Enabled = True
    Application.ScreenUpdating = True
End Sub

 

[unur]

Teşekkürler Ömer Faruk bey emeğinize sağlık

 

[ÖmerFaruk]

Eyvallah.