combobox veridoğrulama

[zamenya]

Sayın hocalarım userform üzerin de coboboxta veri doğrulamayı naıl yapa bilirim:yardim:

 

[Orion1]

Sayın hocalarım userform üzerin de coboboxta veri doğrulamayı naıl yapa bilirim:yardim:

Veri doğrulama derken neyi kastediyorsunuz.Listelememi yapmak istiyorsunuz?

 

[zamenya]

sayın evren hocam örnek dosyayı ekledim userformdaki comboboxta girdim veri örneğin sayfa 2 ye kaydediyor ama comboboxa girdiğim veri data sayfasında yoksa işlem yapmamamsı gibi

 

[Orion1]

Dosya ekte.

Private Sub CommandButton1_Click()
Dim k As Range
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("A2:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "[ " & ComboBox1.Value & " ] Bulunamdı.Kayıt yapılmadı..!!", vbCritical, "KAYIT YOK"
    ComboBox1.SetFocus
    Exit Sub
End If
End Sub

 

[zamenya]

sayın evren hocam çok teşekkürler

 

[Orion1]

sayın evren hocam çok teşekkürler

Rica ederim.
İyi çalışmalar.