Soru Bağlı combobox'ların önceki verisini silmek

[seckinb]

merhaba

2 tane birbirisi ile ilişkili combobox tanımladım.

her combobox farklı sayıda item ekliyor, bu eklediklerini tek tek çıkarmak yerine diğer seçeneği seçtiğimde önceki eklenenleri silmesini nasıl sağlarım?

Private Sub CMBtmtipi_Change()
On Error Resume Next
Select Case CMBtmtipi.Value

    Case Is = "Papiller tiroid kanseri"
        CMBvaryant.RemoveItem 0
        CMBvaryant.RemoveItem 0
        CMBvaryant.AddItem "1"
        CMBvaryant.AddItem "2"
    Case Is = "Foliküler tiroid kanseri"
        CMBvaryant.RemoveItem 0
        CMBvaryant.RemoveItem 0
        CMBvaryant.AddItem "3"
        CMBvaryant.AddItem "4"
    Case Is = "Medüller tiroid kanseri"
        CMBvaryant.RemoveItem 0
        CMBvaryant.RemoveItem 0
        CMBvaryant.AddItem "5"
        CMBvaryant.AddItem "6"
    Case Is = "Az diferansiye tiroid kanseri"
        CMBvaryant.RemoveItem 0
        CMBvaryant.RemoveItem 0
        CMBvaryant.AddItem "7"
        CMBvaryant.AddItem "8"
    Case Is = "Anaplastik tiroid kanseri"
        CMBvaryant.RemoveItem 0
        CMBvaryant.RemoveItem 0
        CMBvaryant.AddItem "9"
        CMBvaryant.AddItem "10"
        
End Select

Sheets("Kimlik").Cells(9, 3) = CMBtmtipi.Value
End Sub

 

[ÖmerBey]

Merhaba,
CMBvaryant.Clear şeklinde deneyiniz...

 

[seckinb]

teşekkürler

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...