Sadece rakam ve nokta girme

[zeugma35]

aşağıdaki kodla sadece nokta ve rakam kullanmak istiyorum sadece rakam girmeme izin veriyo nasıl bi işlem yapabiliriz

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii <> Asc(".") And KeyAscii > 47 And KeyAscii < 58 And Len(TextBox3) < 11 Then
    Kontrol = True
    Else
    KeyAscii = 0: MsgBox "Sadece rakam ve nokta girebilirsiniz.", vbExclamation, "Dikkat !"
    End If
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz.

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii [COLOR="Red"]= [/COLOR]Asc(".") [COLOR="Red"]Or [/COLOR]KeyAscii > 47 And KeyAscii < 58 And Len(TextBox3) < 11 Then
    Kontrol = True
    Else
    KeyAscii = 0: MsgBox "Sadece rakam ve nokta girebilirsiniz.", vbExclamation, "Dikkat !"
    End If
End Sub

 

[hamitcan]

Alternatif;

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii <> Asc(".") Then
    If KeyAscii > 47 And KeyAscii < 58 Then
    Else
         KeyAscii = 0
         If KeyAscii = 0 Then MsgBox "Sadece rakam ve nokta girebilirsiniz.", vbExclamation, "Dikkat !"
    End If
    End If
End Sub

 

[zeugma35]

Yardımlarınız için teşekkürler

peki sadece virgül ve rakam için nasıl olabilir

 

[PLİNT]

Yardımlarınız için teşekkürler

peki sadece virgül ve rakam için nasıl olabilir

Aşağıda 44="," 46="." için kullanmak istemediğinizi silebilirsiniz
Kod sayfasında bir tanımı yoksa mavi bölüm gereksiz görünüyor

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox3) > 10 Then KeyAscii = 0: MsgBox "Sadece 11 karakter girebilirsiniz.", vbExclamation, "Dikkat !": Exit Sub
Select Case KeyAscii
Case [COLOR="Red"]44,[/COLOR] [COLOR="Red"]46,[/COLOR] 48 To 57
[COLOR="Blue"]Kontrol = True[/COLOR]
Case Else
 KeyAscii = 0: MsgBox "Sadece rakam ve nokta girebilirsiniz.", vbExclamation, "Dikkat !"
End Select
End Sub

 

[hamitcan]

Sayın Plint, güzel bir çözüm, tebrik ederim.

 

[PLİNT]

Sayın Plint, güzel bir çözüm, tebrik ederim.

Merhaba
Sn.hamitcan nezaketinizden ve emeklerinizden dolayı çok teşekkür ederim.Sağolun.