Textboxta rakamlardan sonraki karakteri silmek

[memduh]

Arkadaşlar Textboxın içinde eğer enson karaker nokta (.) ise sade noktanın silinmesini istiyorum. nokta birtane olabilir iki tane nokta olabilir. saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub TextBox1_Change()
    If Right(TextBox1, 1) = "." Then Application.SendKeys "{BS}"
End Sub

 

[memduh]

Sayın Korhan Ayhan cevabınız için teşekkür ederim. textboxa arama ile veri aldığım için seçtiğim veride bazen rakamlar arasında ve rakamlar sonunda nokta işareti oluyor. farklı verileri nokta ile birleştirdiğimden kaynaklanıyor. benim istediğim sadece textboxın sonunda rakamlardan sonra nokta varsa (bu bir veya iki nokta olabilir.) silinmesini istiyorum saygılar.

 

[Korhan Ayhan]

Selamlar,

Önerdiğim kod TextBoxa veri girişi anında çalışır. Siz bir arama sonucunda TextBoxa veri alıyorsanız kullandığınız kodu verirseniz gerekli düzenlemeyi yapabiliriz.