LisxBox'ta koşullu seçenek sunma

[badmad34]

Merhabalar,

Ben dün itibariyle kendi kendime excel vba çalışmaya başladım. Şu anda başlangıç aşamasındayım. Bir UserForm oluşturmak istiyorum da, bu Userform'um içerisine 'RegListBox' ve 'EngListBox' isimlerinde iki adet ListBox yerleştirdim. 'RegListBox'ta bir takım verilerim olacak ama 'EngListBox'taki veriler RegListBox'taki seçime göre değişecek durumda olsun istiyorum. Kendimce kod yazmayı denedim fakat acemiliğimden ötürü bir çalıştıramadım. Kodlar şu şekildedir:

Private Sub UserForm_Initialize()
    With RegListBox
    .AddItem "TC-SGH"
    .AddItem "TC-SGI"
    End With
    
    If RegListBox.Value = "TC-SGH" Then
    With EngListBox
    .AddItem "875183"
    .AddItem "874179"
    End With
    End If
    
    If RegListBox.Value = "TC-SGI" Then
    With EngListBox
    .AddItem "874196"
    .AddItem "874132"
    End With
    End If
           
End Sub

Konuyla ilgili yardımcı olabilir misiniz?

 

[Huseyinkis]

ekteki şekilde denermisiniz.

Private Sub RegListBox_Change()
    
    EngListBox.Clear
        
    If RegListBox.Value = "TC-SGH" Then
    With EngListBox
    .AddItem "875183"
    .AddItem "874179"
    End With
    End If
    
    If RegListBox.Value = "TC-SGI" Then
    With EngListBox
    .AddItem "874196"
    .AddItem "874132"
    End With
    End If

End Sub


Private Sub UserForm_Initialize()
    With RegListBox
    .AddItem "TC-SGH"
    .AddItem "TC-SGI"
    End With
End Sub

 

[badmad34]

çok teşekkür ederim hızlı cevap için. şimdi bi ileriki aşamaya geçebilirim sayenizde, sağolun