TextBox'a belirlenen kritere göre veri girişi

[robot]

Herkese merhaba benim sorum şöyle mesela sayfa 1 de B2:B150 sütununda numaralar var (örneği 12,15,16....vb) textboxa bu sütunda olmayan numara girildiğinde textboxtan çıkınca uyarı verip kayıt izni vermemesi sütunda olan bir sayı girince diğer textboxa geçip işleme devam etmesi şimdiden teşekkürler

 

[Orion1]

Herkese merhaba benim sorum şöyle mesela sayfa 1 de B2:B150 sütununda numaralar var (örneği 12,15,16....vb) textboxa bu sütunda olmayan numara girildiğinde textboxtan çıkınca uyarı verip kayıt izni vermemesi sütunda olan bir sayı girince diğer textboxa geçip işleme devam etmesi şimdiden teşekkürler

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim k As Range
Set k = Sheets("Sayfa1").Range("B2:B150").Find(TextBox1.Text, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "Bu kayıt yok.Veri girişi yapılmadı", vbCritical, "UYARI"
    Cancel = True
    Exit Sub
End If
'Buraya kodlarınızı yazınız.
End Sub

 

[robot]

Teşekkür ederim

 

[Orion1]

Teşekkür ederim

Rica ederim.