Userformda virgüllü sayı hatası

[Ali]

Hazırladığım userforma sadece sayılar girilsin diye excel.web.tr nin forumlarını inceledim ve aşağıdaki kodu buldum.

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub


ama 0,125 yada 56,98 gibi virgüllü sayı girilmesine izin verilmiyor. bunun için ne yapmak lazım.


Birde TextBox1'e girdiğim sayı ile TextBox2 girdiğim sayı için

TextBox3'e
(TextBox1/TextBox2)*10^6 formülünü uygulatmak istiyorum.

Yardımlarınızı bekliyorum teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=7193&highlight=sadece+rakam*

 

[Ali]

Sayın leventm, onuda denedim. Bu seferde textboxların içinde sayılar gözükmüyor.

 

[Haluk]

.....
Bu seferde textboxların içinde sayılar gözükmüyor.

Mümkün değil .... varsa, diğer kodlarınız bu işe sebep oluyordur.

 

[Ali]

Sn. Raider.Hiç bir kod yok. Bütün kodları sildim sadece

Private Sub Ornek_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub

yaptım. ama textbox içine yine bir sayı yazamıyorum.

 

[Levent Menteşoğlu]

Ne demek istediğinizi anlamadım. Kod gayet güzel çalışıyor.

Textbox1'e aşağıdaki kodu yazın.

[vb:1:dbfd7400bb]Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub[/vb:1:dbfd7400bb]

Textbox2'ye de aşağıdaki kodu yazın.

[vb:1:dbfd7400bb]Private Sub TextBox2_Change()
On Error Resume Next
If Not IsNumeric(TextBox2) Then SendKeys "{BS}"
TextBox3 = (TextBox1 / TextBox2) * 10 ^ 6
End Sub

[/vb:1:dbfd7400bb]

 

[Levent Menteşoğlu]

Private Sub Ornek_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub

Kodunuzda hata var Textbox1 yerine kendi textboxunuzun adını yazın. Yani sizin koda göre aşağıdaki gibi olması gerekir.

[vb:1:5983171fdc]Private Sub Ornek_Change()
If Not IsNumeric(Ornek) Then SendKeys "{BS}"
End Sub
[/vb:1:5983171fdc]

 

[Ali]

Haklısınız

Private Sub Ornek_Change()
If Not IsNumeric(Ornek) Then SendKeys "{BS}"
End Sub
yazmam gerekirken

Private Sub Ornek_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub

yazmışım Textbox ismini değiştirmiştim. teşekkürler :mutlu:

 

[Ali]

Levent hızlısın bende siz yazarken onu düzeltiyordum. :bravo: