ComboBox a Sabit Veri Girişi

[captan]

Arkadaşlar kolay gelsin ComboBox a sadece A1:A500 Arasındaki verileri girmek istiyorum. Eğer A1:A500 Arasında yok ise uyarı versin. .

Yardımlarınızı bekliyorum . . .

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Private Sub ComboBox1_AfterUpdate()
Dim sonuc, veri
veri = ComboBox1.Value
For Each alan In Sheets(1).Range("A1:A500")
If veri = alan Then
s = 1
End If
Next
If s <> 1 Then
ComboBox1.SetFocus
ComboBox1.Value = ""
MsgBox "Yanl&#305;&#351; Veri Girdiniz!"
Exit Sub
End If
End Sub

 

[captan]

Sayın Ripek İlginize çok tşk ederim

Kodları denedim.
Ama Kayıtlı olmayan veriyide kabul ediyor.

 

[Recep İpek]

Normalde kabul etmemesi gerekiyor.

Küçük bir örnek ekleyebilirmisiniz?

 

[Levent Menteşoğlu]

Birde aşağıdaki kodu denermisiniz.

Private Sub ComboBox1_Change()
say = WorksheetFunction.CountIf([a1:a500], ComboBox1)
If say = 0 Then
MsgBox "Seçilen veri hatalıdır."
Exit Sub
End If
End Sub

 

[captan]

Teşekkür ederim. Kodlar işimi Gördü .