TEXTBOX ' a rakam girisi

[TRUSA]

Merhaba arkadaslar,

Textbox a girilen rakami nasil sinirlandirabilirim. Yani sadece 12.34 gibi rakam girebilsin kullanici. Virgul kullanmasin nokta ile giris yapsin ve noktadan once ve sonra 2 rakam girebilsin.

Yardimlariniz icin simdiden tesekkurler.

 

[Levent Menteşoğlu]

Textboxa aşağıdaki kodu yazarak deneyin.

[vb:1:c448394792]Private Sub TextBox1_Change()
uz = Len(TextBox1)
par = Right(TextBox1, 1)
If uz < 3 And IsNumeric(par) = False Or uz > 5 Then SendKeys "{bs}"
If uz = 3 And par <> "." Then SendKeys "{bs}"
If uz > 3 And IsNumeric(par) = False Then SendKeys "{bs}"
End Sub
[/vb:1:c448394792]

 

[TRUSA]

Cok tesekkur ederim leventm. Gunlerdir ugrastigim sorunumu hallettim.

 

[aligunes]

TextBox da sayfadaki bir hücreye ait rakamı (YTL) rakamı (,) dan sonraki kısmı göstermiyor ör : hücrede 12,00 YTL yazıyor Texboxta sadece 12 yazıyor hücredeki şekliyle nasıl görebilirim.

saygılar.

 

[Levent Menteşoğlu]

Texboxa veriyi aldığınız nesneye aşağıdaki kodu yazın.

TextBox1 = Format([a1], "0.00 YTL")

 

[aligunes]

TextBox12.Value = Sheets("kapak").Cells(29, 7).Value

kod bu şekilde idi

yeni.iadetutar.Value = Sheets("kapak").Cells(24, 11).Value & "YTL"

bu şekilde yaptım ve miktar kısmındaki kuruş ayracı olmuyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox12 = Format(Sheets("kapak").Cells(24, 11).Value , "0.00 YTL")

 

[aligunes]

teşekkür ederim sayın levetm senden bir ricam daha var bu belirttiğin kodda kuruş proplemini hallettim peki binler ayracı için formüle ne eklemem gerekiyor. ör: 1.250,35 YTL