Hesaplama

[excelman]

Merhabalar;

Userform da bir hesaplama işlemi yapmak istiyorum.Fakat değerler küsüratlı çıkıyor.Bunu nasıl halledebilirim.

Kolay Gelsin.

 

[veyselemre]

Private Sub TextBox1_Change()
On Error Resume Next
Label21.Caption = Round(TextBox1.Value / 30, 2) & " YTL dir."
Label23.Caption = Round(TextBox1.Value / 30 / 10.5, 2) & " YTL dir."
Label25.Caption = Round(TextBox1.Value / 30 / 10.5 * 1.5, 2) & " YTL dir."
End Sub

 

[excelman]

Teşekkürler Sayın veyselemre.