textbox'a sadece numara girilebilsin

[Aytaç]

Sanırım bu soru defalarca sorulmuş irdelenmiştir fakat arama motorunda her zaman olduğu gibi sonuç noktasında hüsrana uğradım. sorum şöyle ki bir textbox var ve sadece rakam girilmesi gerekiyo başka bi giriş halinde msgbox hatası vermesini istiyorum.
yardım edebilirseniz sevinirim
hayırlı çalışmalar

 

[Yüksel Varlı]

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox1.Text) Then
Beep
MsgBox "Numerik olmayan bir değer girdiniz"
End If
End Sub

Mahmut hocama selamlar

 

[orcunerkek54]

Private Sub TextBox1_Change()
If IsNumeric(TextBox1) = False And TextBox1 <> Empty Then
MsgBox "Sadece sayı girebilirsiniz."
TextBox1 = ""
End If
End Sub

altarnatif olabilir

 

[Aytaç]

Teşekkürler

Arkadaşlar kodlar için çok teşekkür ediyorum. Zahmet oldu emeğinize sağlık
Bu arada yüksel bey sizin kodda msgbox'tan sonra textbox temizleme koydum daha kullanışlı oldu bide beeb kodunu görünce sesli uyarı bekledim ama duymadım olsun bu da yeter sağolun.

 

[Korhan Ayhan]

Selamlar,

Farklı bir alternatif olarak aşağıdaki koduda kullanabilirsiniz. Bu kod ile Textboxa sadece rakam ve virgül girebilirsiniz. Umarım faydası olur.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc(",")
    Case Else
    KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "Dikkat !"
    End Select
End Sub

 

[Zeki Gürsoy]

Yada,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)    
   If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Or KeyAscii <> 44 Then
        MsgBox"Say&#305; girmelisiniz"
    End If
End Sub

 

[vagatoga]

arkadaşlar, aşağıdaki kodla textbox1 deki verilerin sayısal olup olmadığını kontrol etmek istiyorum ama 89 kabul ediyor 90'ı ve üstünü kabul etmiyor.. neden acaba?

Private Sub CommandButton1_Click()
.
.
.
If CheckBox1.Value = True Then
Select Case TextBox1.Text
Case 0 To 9
Case Else
KeyAscii = 0: MsgBox "Değer girmediniz yada sayısal olmayan bir değer girmeye çalışıyorsunuz." & Chr(10) & "Lütfen işleminizi kontrol ediniz", vbExclamation, "Dikkat !"
TextBox1.Text = ""
ComboBox1.ListIndex = -1
Exit Sub
End Select
Range("h" & x) = TextBox1.Value
End If
.
.
.
End sub

 

[Levent Menteşoğlu]

arkadaşlar, aşağıdaki kodla textbox1 deki verilerin sayısal olup olmadığını kontrol etmek istiyorum ama 89 kabul ediyor 90'ı ve üstünü kabul etmiyor.. neden acaba?

Textbox1 deki verinin sayısal olup olmadığını kontrol etmek için ascii değerine bakmak gerekmez, bunun için aşağıdaki fonksiyonu kullanabilirsiniz.

if isnumeric(textbox1)=false then
 MsgBox "Değer girmediniz yada sayısal olmayan bir değer girmeye çalışıyorsunuz."
exit sub
end if

 

[vagatoga]

teşekkür ederim sayın leventm

 

[yusuf1284]

Textbox1 deki verinin sayısal olup olmadığını kontrol etmek için ascii değerine bakmak gerekmez, bunun için aşağıdaki fonksiyonu kullanabilirsiniz.

if isnumeric(textbox1)=false then
MsgBox "Değer girmediniz yada sayısal olmayan bir değer girmeye çalışıyorsunuz."
exit sub
end if

Hocam teşekkür ederim Kendi yapmış olduğum çalışmaya uyarlamaya çalıştım fakat uyarı mesajı 2 kez geliyor harf yazdığında hatalı girdiği harfi silip işleme devam etmesini istiyorum yani harf hiç yazamasın sadece sayılardan ibaret olsun uyarıda vermesine gerek yok.

Private Sub Txt_TC_Change()
If IsNumeric(Txt_TC) = False Then 'sayısal olup olmadığını kontrol etmek
Txt_TC.Value = ""
MsgBox "Değer girmediniz yada sayısal olmayan bir değer girmeye çalışıyorsunuz.", vbOKOnly, " UYARI"

Exit Sub
End If
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki satırı ekleyerek dener misiniz?

Private Sub Txt_TC_Change()
    If IsNumeric(Txt_TC) = False Then Txt_TC.Value = ""
End Sub

 

[yusuf1284]

Merhaba,
Aşağıdaki satırı ekleyerek dener misiniz?

Private Sub Txt_TC_Change()
     If Txt_TC.Value = "" Then Exit Sub

Kodların başına ekledim dediğiniz gibi oldu hocam
Hocam bir de 123a yazıldığında sonda yazan a harfini silip 123 bırakma şansımız var mı?
Çözümü buldum hocam diğer arkadaşların işine yarayacaksa
Harf girişini engelleme

Private Sub Txt_TC_Change()
If Txt_TC.Value = "" Then Exit Sub
If IsNumeric(Txt_TC) = False Then 'sayısal olup olmadığını kontrol etmek
On Local Error Resume Next
Txt_TC.Text = Mid(Txt_TC.Text, 1, Len(Me.Txt_TC.Text) - 1)
 'MsgBox "Değer girmediniz yada sayısal olmayan bir değer girmeye çalışıyorsunuz.", vbOKOnly, " UYARI"
 
Exit Sub
End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

Private Sub Txt_TC_Change()

If IsNumeric(Txt_TC) = False Then CreateObject("WScript.Shell").SendKeys "{bs}", True

End Sub