Rakam aralığı sınırlama

[sirkülasyon]

Sadece Textbox22 için
1 - 30 arasında bir rakam girilmesine izin verecek
Girilecek rakam 1 den küçükse "1' den küçük olamaz", 30' dan büyükse "30' dan büyük olamaz" uyarısı vermek için yardım edebilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub TextBox1_Change()
    If TextBox1 = "" Then Exit Sub
    
    If Left(TextBox1, 1) = "-" And Len(TextBox1) = 1 Then Exit Sub
    If Left(TextBox1, 1) = "+" And Len(TextBox1) = 1 Then Exit Sub
    
    If Not IsNumeric(TextBox1) Then
        MsgBox "1 ile 30 arasında değer giriniz!", vbCritical
        TextBox1 = ""
        Exit Sub
    End If
    
    If TextBox1 > 30 Then
        MsgBox "30' dan büyük olamaz!", vbCritical
        TextBox1 = ""
        Exit Sub
    End If
        
    If TextBox1 < 1 Then
        MsgBox "1' den küçük olamaz!", vbCritical
        TextBox1 = ""
        Exit Sub
    End If
End Sub

 

[Haluk]

Alternatif;

Private Sub TextBox1_Change()
    If Not (TextBox1 >= 1 And TextBox1 <= 30) Then
    MsgBox "Hata....! Sayı 1 ile 30 arasında olmalıdır"
    SendKeys "{BACKSPACE}"
    End If
End Sub

.

 

[sirkülasyon]

Korhan abime ve Haluk Reisime
Teşekkürlerimi sunarım. Allah yar ve yardımcınız olsun.
Selam ve Dua ile. Emanetiniz canverene