Userform daki combobox hk.

[ismailyardimci]

Merhaba arkadaşalar,

Benim sıkıntım userformda 1.combobox ta veri değişince, 2. combobox'ın verilerinin 1.comboboxtaki seçilen veriye göre değişmesi, yani 1. comboboxta düşük seçerse 2. comboboxta 1,2,3,4 gelsin, 1. comboboxta yüksek seçerse 2. comboboxta 5,6,7,8 gelsin. Yardımcı olabilirseniz çok sevinirim.

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Bu tarz sorularınızda örnek dosya hazırlayıp eklerseniz yanıt vermek isteyen arkadaşlarımıza kolaylık sağlamış olursunuz. Ben sizin için bir dosya hazırlamak zorunda kaldım.

Ekteki örnek dosyayı incelermisiniz.


Kullanılan kod; (UserFormun kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub ComboBox1_Change()
    Dim X As Byte
 
    If ComboBox1 = "DÜŞÜK" Then
        ComboBox2.Clear
        For X = 1 To 4
        ComboBox2.AddItem X
        Next
    ElseIf ComboBox1 = "YÜKSEK" Then
        ComboBox2.Clear
        For X = 5 To 8
        ComboBox2.AddItem X
        Next
    Else
        ComboBox2.Clear
    End If
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "DÜŞÜK"
    ComboBox1.AddItem "YÜKSEK"
End Sub

 

[ismailyardimci]

TŞK.

Korhan Bey, ilgi ve alakanız için teşekkür ederim. Eleştirinizde haklısınız, teşekkürler.