Textbox a para ve sayı girişinde uyuşmazlık

[selo1234]

merhabalar,
sorunum çok basit gözüküyor ama çözemiyorum.
Forumda benzer problemleri ve çözümleri inceledim hep

TextBox2.Value = Format(TextBox2.Value, "#,###.00")

formatında girilmesi belirtiliyor, ama bir çakışma var herhalde sonuç olumsuz oluyor.
Windows(türkçe) ve excel( ingilizce) deki ayarlarım:
binlik ayıraç (.) ve ondalık ayıraç (,) dır.
Problemi gösterebilmek için ekteki basit bir dosyaya koydum.
İstediğim , tam sayıyı: 1.234 şeklinde ve diğer kesirli girişi 1.234,00 şeklinde hem panel de hem de excel sayfasında göstermek.
Destekleriniz için şimdiden teşekkürler

 

[Orion1]

Dosyanız ekte.

 

[selo1234]

Hızlı cevabınız için çok teşekkürler Evren Gizlen,
Fakat (.) ve (,) ler başka bir alanı tıkladıktan sonra yani update den sonra ortaya çıkıyor. Ben ise giriş anında hata yapılmaması açısından , giriş anında yazarken nokta ve virgüllerin ortaya çıkmasını isterdim.
Buna bir çözümünüz olabilir mi ?

 

[Orion1]

Hızlı cevabınız için çok teşekkürler Evren Gizlen,
Fakat (.) ve (,) ler başka bir alanı tıkladıktan sonra yani update den sonra ortaya çıkıyor. Ben ise giriş anında hata yapılmaması açısından , giriş anında yazarken nokta ve virgüllerin ortaya çıkmasını isterdim.
Buna bir çözümünüz olabilir mi ?

Öyle olmaz.

 

[selo1234]

üzgünüm. Giriş hatasını yok etmek için düşünmüştüm.
teşekkürler

 

[Orion1]

üzgünüm. Giriş hatasını yok etmek için düşünmüştüm.
teşekkürler

giriş hatasını nasıl kontrol edicektiniz.Bunun için önlem alınabilir.

 

[selo1234]

kullanıcının giriş anında ne girdiğini görmesi, fazla veya eksik digit girmemesi gibi.

 

[Orion1]

kullanıcının giriş anında ne girdiğini görmesi, fazla veya eksik digit girmemesi gibi.

Eğer sayısal değer girip girmediğini kontrol etmek isityorsanız bunun kodu var.

if not isnumeric(textbox1.text) then
kodlarınız
end if

 

[selo1234]

yok , eksik veya fazla digit girmekden bahsediyorum . Mesela, 12.345 i girmek için 12345 yazarken insan dalgınlıkla bir hata yapabilir diye düşünüyorum.

 

[mrarslan]

tşk arkadaşım bilgileriniz benimde işime yaradı

 

[selo1234]

merhaba Evren Gizlen,
sizin ekte verdiğiniz gibi format ayarlaması yapmıştım ama başka bir problem oluşuyor. Özellikle Userform üzerinde toplam aldıramıyorum. Aşağıdaki her iki yaklaşımı da denedim ama olmuyor. Deneme dosyasını ekte gönderiyorum.
TextBox3.Value = TextBox1.Value + TextBox2.Value
TextBox3.Value = Val(TextBox1.Text) + Val(TextBox2.Text)
Desteğiniz için şimdiden teşekkürler
selo1234

 

[kaan75a]

arkadasım sımdı bak oldu herhalde