Soru Textbox Değerine Göre Comboboxları Gizlemek

[leonadies]

Üstadlar Merhaba;

Textboxta Yazılan değere göre Comboboxlarım gizlensin istiyorum.

Örneğin; 1 Yazınca sadece Combobox1 Kalsın Diğer 3 ü Gizlensin
2 Yazınca Combobox1 ve Combobox2 Kalsın diğer ikisi gizlensin
3 Yazınca ...........
4 Yazınca ..........

Şeklinde devam etsin. Mümkün mü? Dosyalarım ekte.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu deneyin.

Private Sub TextBox1_Change()
    Dim Hata As Boolean
    If Not IsNumeric(TextBox1.Text) Then
        Hata = True
    ElseIf TextBox1.Text < 1 Or TextBox1.Text > 4 Then
        Hata = True
    End If
    
    If Hata And TextBox1.Text <> "" Then
        MsgBox "Lütfen '1' ile '4' rakamı arasnda bir değer giriniz.", vbExclamation
        Exit Sub
    End If
    Select Case TextBox1.Text
        Case 1
            ComboBox1.Visible = True
            ComboBox2.Visible = False
            ComboBox3.Visible = False
            ComboBox4.Visible = False
        Case 2
            ComboBox1.Visible = True
            ComboBox2.Visible = True
            ComboBox3.Visible = False
            ComboBox4.Visible = False
        Case 3
            ComboBox1.Visible = True
            ComboBox2.Visible = True
            ComboBox3.Visible = True
            ComboBox4.Visible = False
        Case 4
            ComboBox1.Visible = True
            ComboBox2.Visible = True
            ComboBox3.Visible = True
            ComboBox4.Visible = True
    End Select
End Sub

 

[muygun]

Merhaba;
syn.Muzaffer Ali doğru çözümü vermiş. Alternatif olsun.


Private Sub TextBox1_Change()
UserForm1.Controls("ComboBox1").Visible = True
UserForm1.Controls("ComboBox2").Visible = True
UserForm1.Controls("ComboBox3").Visible = True
UserForm1.Controls("ComboBox4").Visible = True

If TextBox1 = 1 Then
UserForm1.Controls("ComboBox1").Visible = True
UserForm1.Controls("ComboBox2").Visible = False
UserForm1.Controls("ComboBox3").Visible = False
UserForm1.Controls("ComboBox4").Visible = False
End If

If TextBox1 = 2 Then
UserForm1.Controls("ComboBox1").Visible = True
UserForm1.Controls("ComboBox2").Visible = True
UserForm1.Controls("ComboBox3").Visible = False
UserForm1.Controls("ComboBox4").Visible = False
End If

If TextBox1 = 3 Then
UserForm1.Controls("ComboBox1").Visible = True
UserForm1.Controls("ComboBox2").Visible = True
UserForm1.Controls("ComboBox3").Visible = True
UserForm1.Controls("ComboBox4").Visible = False
End If
End Sub

İyi çalışmalar.

NOT:
UserForm1.Controls("ComboBox4").Visible = False
yerine
UserForm1.Controls("ComboBox4").Enabled = False

ile ComboBox4 'ü görünür ama pasif yapabilirsiniz.

 

[leonadies]

Ellerinize sağlık üstadlarım @muygun @Muzaffer Ali