Soru combobox ile select case hatası

[sirkülasyon]

Private Sub Hizmet_change()
Select Case Hizmet.ListIndex
Case "a"
        Me.Unvan.Value = "a1"
Case "b"
         Me.Unvan.Value = "b1"
         Me.Unvan.Value = "b2"
         Me.Unvan.Value = "b3"
         Me.Unvan.Value = "b4"
         Me.Unvan.Value = "b5"
         Me.Unvan.Value = "b6"
Case "c"
        Me.Unvan.Value = "c1"
         Me.Unvan.Value = "c2"
         Me.Unvan.Value = "c3"
Case "d"
          Me.Unvan.Value = "d1"
          Me.Unvan.Value = "d2"
       End Select
End Sub




Private Sub UserForm_Initialize()
Hizmet.AddItem "a"
Hizmet.AddItem "b"
Hizmet.AddItem "c"
Hizmet.AddItem "d"
End Sub

Userform üzerinde iki tane combobox mevcut.
Birinci combobox "Hizmet"
İkinci combobox "Unvan" adında
Hizmet comboboxunda
a seçersem a' ya ait bilgiler
b seçersem b' ye ait bilgiler
c seçersem c' ye ait bilgiler
d seçersem d' ye ait bilgiler gelmesini nasıl sağlayabilirim.

 

[Muzaffer Ali]

Merhaba.

Private Sub Hizmet_change()
    Unvan.Clear 'Her seçimde, önceki eklenenleri temizlemelisiniz.
    Select Case Hizmet.Value 'ListIndex değil Value olmalı yani liste numarası değil değere bakmalı
    Case "a"
            Unvan.AddItem = "a1" 'Value yerine 'AddItem' kullanmalısınız.
            'Aşağıdakileri de böyle devam edin.

 

[sirkülasyon]

Eyvallah
Teşekkür ederim. Sağ Ol

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.