TextBox'a Girilen Değerin Bölünmesi sonucu Küsürat uzun

[Kemal Demir]

Arkadaslar bunlar hhakkında baya ornek var biliyorum ama bulamadım
elimde ki fırmda ki kod aşagıdaki gibidir.

Private Sub TextBox22_Change()
TextBox25.Value = TextBox22.Value / 1.18
TextBox25 = Format(TextBox25, "#.##")
End Sub

yalnız ole birşey ki

Misal:textbox22 'ye 45 yazdığımda textbox 25 de 38,13 cıkacağına .........

38131242 diye bir rakam cıkıyor bunu nasıl duzeltebilirim

Edit xxrt:"textboxum da hata" Konu başlığı "TextBox'a Girilen Değerin Bölünmesi sonucu Küsürat uzunluğu" olarak değiştirildi.

 

[xxrt]

Bunu deneyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Format(Round((TextBox1 / 1.18), 2), "#,##0.00")
End Sub

 

[Kemal Demir]

teşekkur ederim

 

[airborne]

bir de virgülden sonra üçüncü rakam 5ve 5 ten yukarı 5 ten küçük ise aşağıya nasıl yuvarlanır

 

[class37]

Merhaba
Dediğiniz işlemi Excel otomatik yapar zaten.

 

[damra2005]

textboxta makro ile nasıl olduğunu merak ediyorum

 

[class37]

Merhaba örnek bir dosya ekliyorum.İyiçalışmalar.