Combobox AddItem temizleme

[burhancavus61]

Comboboxlara döngü ile item ekliyorum ama her change olayında itemler şişiyor. Change olayından önce itemlerin tamamını nasıl temizleyebilirim. RemoveItem denedim ama beceremedim.

Sub nobetremoveitem()
    Dim s2 As Worksheet, son As Long, y As Long, c As Long
    Set s2 = Sheets("vardiya")
        
    son = s2.Cells(Rows.Count, "B").End(3).Row
    For y = 1 To 31
        On Error Resume Next
        pntjform.Controls("Combobox" & 64 + y).RemoveItem s2.Cells(c, 8)
        pntjform.Controls("Combobox" & 64 + y).RemoveItem "Hİ"
   Next y

End Sub

 

[Necdet]

Merhaba,

 ComboBox1.Clear

 

[burhancavus61]

Teşekkür ederim hocam