textbox'ta (.) nokta dışındaki işaretler girilemesin

[takoo]

merhaba ya arkadaşlar.yaptıkça yeni yeni gereksinimler ortaya çıkıyor.
#.##0,00 şeklinde formatlı textbox var.buradan aktarılacak verilerin gittiği hücre de aynı şekilde formatlı.texbox'ta sadece nokta kullanırken sorun yok iyi çalışıyor.ama kazara virgül kullanılırsa ,hücrede hata oluşuyor.isteğim , textbox'tan sadece nokta girişine izin verilmesi.nasıl yapmalıyız acaba yardımcı olur musunuz? iyi çalışmalar diliyorum

 

[Orion1]

Textbox'ı aşağıdaki şekilde formatlayın.

TextBox1.Value = Format(TextBox1.Value, "#,##0.00")

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Private Sub TextBox1_AfterUpdate()
If TextBox1 = Format(TextBox1, "#,##0.00") Then
Exit Sub
Else
MsgBox "Hatalı format girdiniz"
TextBox1 = ""
End If
End Sub

 

[ildizim]

Bu şekilde bir deneyiniz.

Private Sub TextBox1_AfterUpdate()
If TextBox1 = Format(TextBox1, "#,##0.00") Then
Exit Sub
Else
MsgBox "Hatalı format girdiniz"
TextBox1 = ""
End If
End Sub

bu kodu worksheette ( a:a) kolonuna nasıl uygularız.?

Validasyondan decimal dan minumum 0 maximum 99999999999.99 şeklinde yaptım oldu fakat başka çalışma sayfasından 0,00 formatında bir veri kopyalanmasını engelleyemedim. alanı koruma koyamıyorum çünki copy paste i kullanıyorum.