Combobox veri seçilince userform açılsın

[cocoa35]

Arkadaşlar merhaba; bir konuda yardıma ihtiyacım var, ek'teki dosyada sayfa1 'deki buton ile açılan userform'da combobox var ve içinde deneme1,2,3,4,5 verileri var , ben bunlardan biri seçildiğinde userform açılsın istiyorum, mesela Deneme1 seçildiğinde Userform2 açılsın, Deneme2 seçildiğinde UserForm3 açılsın gibi, tabi userform açılınca combobax'ın olduğu userform kapansın. Bu konuda yardımcı olurmusunuz. Teşekkürler.

 

[Ömer]

Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz.

Private Sub ComboBox1_Change()
    If ComboBox1 = "DENEME 1" Then
        UserForm2.Show
    ElseIf ComboBox1 = "DENEME 2" Then
        UserForm3.Show
    ElseIf ComboBox1 = "DENEME 3" Then
        UserForm4.Show
    End If
End Sub

 

[cocoa35]

Çok teşekkürler Ömer bey gayet güzel olmuş

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.
UserForm1 deki kodları silin aşağıdakileri kopyalayın.

Dim Acilis As Boolean

Private Sub ComboBox1_Change()
    If Acilis Then Exit Sub
    Unload Me
    Select Case ComboBox1.Text
        Case "DENEME 1"
            UserForm2.Show
        Case "DENEME 2"
            UserForm3.Show
        Case "DENEME 3"
            UserForm4.Show
        Case "DENEME 4"
     
    End Select
   
End Sub

Private Sub UserForm_Initialize()
    Acilis = True
    With ComboBox1
        .ListRows = 5
        .Text = "PERSONEL SEÇİNİZ..."
        .AddItem "DENEME 1"
        .AddItem "DENEME 2"
        .AddItem "DENEME 3"
        .AddItem "DENEME 4"
        .AddItem "DENEME 5"
    End With
    Acilis = False
End Sub