Çoklu Kritere Göre CommandButtonu Aktif Pasif Yapma

[baykan_m]

Merhaba Arkadaşlar,

Userformda bulunan Textbox1, Textbox2 ve combobox1 boşsa commandbutton pasif olsun istiyorum. Ben normalde sadece textbox 1 felan yaptığımda oluyor ancak üçünden biri bile boşsa pasif olsun üçü birden doluysa aktif olsun istiyorum.

Yardımcı olanlara şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub ComboBox1_Change()
    UserForm_Initialize
End Sub

Private Sub TextBox1_Change()
    UserForm_Initialize
End Sub
Private Sub TextBox2_Change()
    UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
    CommandButton1.Enabled = True
    If TextBox1 = "" Or TextBox2 = "" Or ComboBox1 = "" Then
        CommandButton1.Enabled = False
    End If
End Sub

Eğer her seferinde "Initialize" kodunu çalıştırmak istemiyorsanız aşağıdaki gibi de kullanabilirsiniz.

Private Sub ComboBox1_Change()
    Kontrol
End Sub

Private Sub TextBox1_Change()
    Kontrol
End Sub

Private Sub TextBox2_Change()
    Kontrol
End Sub

Private Sub Kontrol()
    CommandButton1.Enabled = True
    If TextBox1 = "" Or TextBox2 = "" Or ComboBox1 = "" Then
        CommandButton1.Enabled = False
    End If
End Sub

Private Sub UserForm_Initialize()
    CommandButton1.Enabled = False
End Sub

.