combobox problemi

[erkanacet]

Arkadaşlar,
Yapmaya çalıştığım bir formada kullanıcı combobox içerisinden isim seçimi yapıyor. Þayet kullanıcı combobox içerisindeki isimler haricinde bir isim yazmaya çalıştığında "lütfen listeden seçim yapın" şeklinde messagebox gelmesini istiyorum.
Þimdiden yardımlarınız için teşekkürler

 

[class37]

Merhaba

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox1 = Empty
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", 16, "HATA"
End Sub

 

[Haluk]

Veya;

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox1.Locked = True
End Sub
'
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ComboBox1.Locked = False
End Sub

 

[erkanacet]

teşekkürler