combo nun exitin de calısması gerekir

[uguristanbul]

Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
Dim IlkAdres As String
Dim sp As Worksheet
Dim Evet As String
Set sp = Sheets("firma")
Set c = sp.Range("b:b").Find(ComboBox2.Value, LookIn:=xlValues)
If c Is Nothing Then
UserForm6.Show
End If
End Sub
yukarıdaki kod
combobox 2 den cıkıldıgında calısması gerekirken
userformun kapanısında calısıyor
yardım edecek arkadaslara tesekkurler

 

[Mehmet Şahin]

Merhabalar,
Combobox'ın içinden bulunduğu frame'den çıkarıp denermisiniz, iyi çalışmalar.