Aynı kısıtlamayı tüm Textboxlara geçerli kılmak

[heft]

Merhaba,
Userform1 de 150 adet textbox ım var
herbiri için

If Right(TextBox1, 1) Like "[!0-9,]" Then SendKeys "{bs}"

yazmak güç oluyor.
Bunu userform1 deki tüm textboxlara uygulatma imkanımız var mıdır?

Şimdiden teşekkürler

 

[dost]

Merhaba,


Bu işlemi ClassModule ile yapabiliriz.

Bir ClassModule sayfasına;

Public WithEvents txt As MSForms.TextBox

Private Sub txt_Change()
  If Right(txt, 1) Like "[!0-9,]" Then SendKeys "{bs}"
End Sub

Bir Module sayfasına;

Global txtler() As New clsTxtControl
Global Ctrl As Control

User Formun UserForm_Initialize olayına;

For Each Ctrl In Me.Controls
    If TypeName(Ctrl ) = "TextBox"Then
        ReDim Preserve txtler(i)
        Set txtler(i).txt = Ctrl 
        i = i + 1
    End If
  Next

 

[veyselemre]

ekte class modulle yapılmış bir örnek var

 

[heft]

syn veyselemre ilginize teşekkür ancak gönderdiğiniz örnek hata veriyor