virgül tekrarı

[heft]

Merhabalar,
Textbox1 e virgülün (,) sadece birkez girilmesini hangi kodla sağlayabilirim?

 

[heft]

Selamlar,buldum.
belki başkasına da yarayabilir.

Private Sub TextBox2_Change()
Dim SAY As Byte
SAY = Len(TextBox2) - Len(Replace(TextBox2, ",", ""))
If SAY > 1 Then SendKeys "{BS}"

End Sub

 

[Necdet]

Selamlar,buldum.
belki başkasına da yarayabilir.

Private Sub TextBox2_Change()
Dim SAY As Byte
SAY = Len(TextBox2) - Len(Replace(TextBox2, ",", ""))
If SAY > 1 Then SendKeys "{BS}"

End Sub

Kutlarım sizi.

 

[heft]

sağolun,çok şey öğretti excel.web.tr, emeği geçen herkese teşekkürler