ComboBox' a ekli olmayan isim girilince uyarsın

[mozdem]

merhaba,
yardımınıza ihtiyacım var, şöyleki

Ekli dosyam incelendiğinde daha net anlaşılacağı üzere,
ComboBox1 'e bir sayfadan veri ekleniyor. bu eklenen verilerden seçilen bir veri
buton click olayı ile hücreye yazdırılıyor.
Burada istediğim Combobox ta olmayan isim girilirse hücreye yazdırılmasın.

yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Combox özelliklerine ( Properties) girerek "Style" seçeneğindeki "2-fm...." seçeneğini seçerseniz elle girişi iptal etmiş olursunuz.

.

 

[mozdem]

Merhaba,

Combox özelliklerine ( Properties) girerek "Style" seçeneğindeki "2-fm...." seçeneğini seçerseniz elle girişi iptal etmiş olursunuz.

.

Cevabınız için çok teşekkür ederim.
Evet sizin yazdığınız şekilde yapınca oluyor. Ancak biraz görsellik kayboluyor şeklinde ifade etsem yanlış mı olur bilmiyorum.
şöyleki; Style=0 olunca Combobox' a yazarak veri girerken ne yazdığımı görebiliyorum. Style=2 yapınca yazarak veri girmek istediğimde ne yazdığımı göremiyorum.
ComboBox' a yazılan veriyi personel sayfasında arasa eğer yoksa mesaj döndürse tekrar girmem için uyarsa. Benim için çok iyi olur

 

[Necdet]

Merhaba,

Tekrar Comboboxa gelmeyi beceremedim ama en azından mesaj verdirdim.
Aşağıdaki kodları ekleyiniz.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
    Set c = Sheets("Personel").[B:B].Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
        MsgBox ComboBox1.Value & " Adlı kişiyi Personel Sayfasında Bulamadım..."
        ComboBox1.SetFocus
    End If
End Sub

 

[mozdem]

Merhaba,

Tekrar Comboboxa gelmeyi beceremedim ama en azından mesaj verdirdim.
Aşağıdaki kodları ekleyiniz.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
    Set c = Sheets("Personel").[B:B].Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
        MsgBox ComboBox1.Value & " Adlı kişiyi Personel Sayfasında Bulamadım..."
        ComboBox1.SetFocus
    End If
End Sub

Çok teşekkür ederim hocam . Ellerinize sağlık