[vb:1:72f9602fa2]
Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
If Mid(TextBox1.Value, Len(TextBox1.Value), 1) = "," Then
MsgBox "VİRGÜL YAZILAMAZ"
TextBox1 = ""
End If
End Sub
[/vb:1:72f9602fa2]
veya
[vb:1:72f9602fa2]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Then MsgBox "VİRGÜL YAZILAMAZ"
End Sub
[/vb:1:72f9602fa2]
teşekkürler arkadaşlar. ama bi sorun var . vilgül yazılamaz uyarısından sonra sadece virgülü silmesini istiyorum girdiğim sayının tamamını değil
Üsteki kod uyarıdan sonra tamamını siliyor
Altaki kod uyarıdan sonra virgülü ekliyor
[vb:1:961facbbbf]Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
If Mid(TextBox1.Value, Len(TextBox1.Value), 1) = "," Then
MsgBox "VİRGÜL YAZILAMAZ"
TextBox1 = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
End If
End Sub[/vb:1:961facbbbf]
[vb:1:87b3189141]Private Sub TextBox1_Change()
say = Len(TextBox1) - Len(Replace(TextBox1, ",", ""))
If say > 1 Then SendKeys "{bs}"
End Sub
[/vb:1:87b3189141]
Kodu aşağıdaki şekilde düzenleyince istediğim oldu ilginize teşekkür ederim.
Virgülü commanbutton ile uyguluyordum.Sizin verdiğiniz koda Locked=True özelliğini ekleyince istediğim oldu.
Private Sub TXTEKRAN_Change()
Say = Len(TXTEKRAN) - Len(Replace(TXTEKRAN, ",", ""))
If Say = 1 Then CMDNOTKA.Locked = True
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.