Combobox Hakkında

[bulentkars]

Arkadaşlar Merhaba

Benim sorunum aşağıdaki kodta userformun üzerinde 1 den fazla Combobox oluşturdum.Comboboxlara girdiğim verilerin karşılığını data sayafsından lebel nesnesine alıyorum.her combobox un içinde aşağıdaki combobox27 nin kodları mevcut.burada yapmak istediğim kontrol2 makrosu tüm comboboxların içinde var.kontrol2 makrosu çalıştığında yani uyarı verdiğinde MsgBox "Sayım Girişi yapmadan Fiş dökümü alamassınız.", vbCritical, "Uyarı"
uyarı verdiği comboboxu boşaltmasını istiyorum.şöyleki Combobox? hangi comboboxta uyarı veriyorsa ilgili combobox temizlenecek.öreneğin combobox30 da uyarı veriyorsa uyarıdan sonra combobox30 un temizlenmesi lazım.Kontrol2 makrosnu çoğlatmak istemiyorum bu konuda yardımcı olursanız sevinirim.Şimdiden teşekkürler.


Private Sub ComboBox27_Change()
Label29 = Empty
Dim hucre As Range
For Each hucre In Worksheets("data").Range("a3:a1000")
If CStr(ComboBox27.Value) = CStr(hucre.Value) Then
Label29.Caption = hucre.Offset(0, 2)
kontrol2
Exit Sub
Else
Label29.Caption = Empty
End If
Next hucre
End Sub

Sub kontrol2()

If Label29 = "" Then
MsgBox "Sayım Girişi yapmadan Fiş dökümü alamassınız.", vbCritical, "Uyarı"
'Aktif Combobox u Temizleyecek.
End If

End Sub