TextBox'a tanımlanan veri haricinde veri girilemesin.

[s.savas]

Merhaba arkadaşlar.
TextBox2 ye 0,5,10,15 ve 35 rakamlarının haricinde sayı veya metin girildiğinde kullanıcıyı uyararak tanımlanan veri haricinde veri girilmesi engellenebilirmi.

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2.Value <> 0 And _
       TextBox2.Value <> 5 And _
       TextBox2.Value <> 10 And _
       TextBox2.Value <> 15 And _
       TextBox2.Value <> 35 Then Cancel = True
End Sub

 

[Skorpiyon]

Aynı ama, extra olsun,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox1) = 0 Or Val(TextBox1) = 5 Or Val(TextBox1) = 10 Or _
Val(TextBox1) = 15 Or Val(TextBox1) = 35 Then GoTo 10
MsgBox "Lütfen 0, 5, 10, 15 veya 35 değerini giriniz"
10
End Sub

 

[s.savas]

Necdet hocam,
Compile error:
Ambiguous name detected: TextBox2_Exit

isimli hatayı verdi

 

[s.savas]

Aynı ama, extra olsun,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox1) = 0 Or Val(TextBox1) = 5 Or Val(TextBox1) = 10 Or _
Val(TextBox1) = 15 Or Val(TextBox1) = 35 Then GoTo 10
MsgBox "Lütfen 0, 5, 10, 15 veya 35 değerini giriniz"
10
End Sub

Şaban hocam sizin kodda da,
Compile error:
Ambiguous name detected: TextBox2_Exit

isimli hatayı verdi

 

[s.savas]

Üstatlar özür dilerim.
userformda daha önce tanımlanmış

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

event olduğu için hata mesajı alıyormuşum.