User Form-Combobox'ta Kapsam Dışı Kayıt Sorunu

[baydeniro]

Merhaba arkadaşlar. USER FORM'da bulunan Combobox'a gelecek veriler KAYIT sayfası içinde belirli. Ancak USER FORM'da kayıt yaparken başka bir veri yazılsa da kabul edip, kayıt ediyor. Örnek dosye ekte.

 

[Husgvarna]

Buton1 altına aşağıdaki bölüme kadar ekleyin.

  Private Sub CommandButton1_Click()
Sheets("KAYIT").Select
Dim kontrol As Control
Dim txt
If ComboBox1.Value = "" Then
MsgBox "BÖLÜM EKSİK"
Exit Sub
End If
For Each kontrol In UserForm1.Controls
  If Left(kontrol.Name, 7) = "TextBox" Then
  Set txt = kontrol
 If txt.Value = "" Then
 MsgBox "EKSİK BİLGİLER VAR"
Exit Sub
End If
End If
Next
If WorksheetFunction.CountIf(Range("x18:x20"), ComboBox1.Value) = 0 Then
ComboBox1.Value = ""
MsgBox "BÖLÜM HATALI"
Exit Sub
End If
sonsat = WorksheetFunction.CountA(Range("I18:I100 "))
If sonsat >= 80 Then
MsgBox "SATIR DOLDU..!!" & vbLf & "KAYIT YAPAMAZSINIZ..!!", vbCritical
    Exit Sub
End If
Cells(sonsat + 18, "H") = (sonsat) + 1

Cells(sonsat + 18, "I").Value = TextBox1.Value
'.................
'..............

Bu kodu ekleyin.

  Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.SetFocus
End Sub

 

[baydeniro]

Sayın Husgvarna yardımlarınız için çok teşekkür ederim. Gerçekten çok yararlı olu. Allah sizlere uzun ömürler versin.