Textbox'daki Virgül

[derisa963]

Merhaba Arkadaşlar .
Userform içerisindeki textbox a veriler yazılırken sadece bir adet virgül girilmesi gerekiliyor fakat dalgınlıkla iki adet girilir ise Textbox'dan çıkıldığı zaman kontrol edip eğer virgül sayısı birden fazla ise Msgbox ile uyarı vermesini istiyorum.
Bilgisi olan varmı.
Saygılarımla.

 

[muygun]

Merhaba;

Userform'un kod kısmına;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
veri = TextBox1: say = 0
For i = 1 To Len(TextBox1)
If Mid(veri, i, 1) = "," Then say = say + 1
Next i
If say > 1 Then MsgBox ("UYARI ! Birden fazla virgül girdiniz."), vbCritical
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[derisa963]

İşe yaradı çok teşekkür ederim