Mnozenje 2 textboxa i proizvod u trecem

Ponovo sam u problemu sa formatima textboxa. U Formi1 imam Textbox2 i TextBox3, ciji proizvod je u TextBoxu4.

Private Sub CommandButton2_Click()
TextBox4.Value = TextBox2.Value * TextBox3.Value
End Sub

Za TextBox4 imam dodeljen format broja sa dve decimale:

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Text = FormatNumber(TextBox4.Text, 2)
End Sub

Medjutim, ako je proizvod okrugli broj (200*30=6000) tako se i upisuje - 6000 (bez ,00).
Ako je prizvod sa 4 decimale onda se tako i upisuje (11.33*12.44=140.9452).
I NIKAKO sa dve decimale. Ne razumem zasto. Probao sam TextBox2 i TextBox3 da formatiram na dve decimale i to se postuje kod unosa, ali samo kad unosim dvocifrene brojeve. Za brojeve sa tri i vise cifara automatski ih deli sa 1000 (npr. unesem 2000, a upise se 2). Definitivno imam problem sa formatiranjemTextBoxova u UserFormu, ali ne znam da ga prevazidjem. Pozdrav

Potrebno ti je jos jedan red u prvom kodu tako da glasi:

Private Sub CommandButton2_Click()
TextBox4.Value = TextBox2.Value * TextBox3.Value
TextBox4 = Format(Val(TextBox3) * Val(TextBox2), "0.00")
End Sub

Evo i prilog
pozdrav

Hvala Mirko, to je to - RADI kako sam hteo. Da li je sustina sto je u dogadjaju CommandButon_click, odnosno da li bi radilo i ako isti kod stavim u ovaj donji dogadjaj. Svakako HVALA na pomoci. Pozdrav

Neznam sto bi bilo pogodnije za donji dogadjaj jer vec imas CommandButton. Probao sam i neradi. Pozdrav

O.K. Svakako hvala. Taj problem sam odavno "vukao" Pozdrav

Re,
nekapiram o cemuse radi bas najbolje, bezobzira evo jednog nacina
dase resi problem sa jednom linijom.

Private Sub CommandButton2_Click()
TextBox4.Value = Format(TextBox2 * TextBox3.Value, "#,##0.00")
End Sub

Pozrav za sve

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Pozdrav za Lion. Nazalost tvoja verzija ne funkcionise. Odnosno, funkcionise kao i moja prvobitna - samo kad se u Box1 i Box2 unesu dvocifreni brojevi. Za trocifrene i vise, daje rezultat podeljen sa 10000 (300*200=6). Mirkova definitivno RADI.
Hvala na podrsci. Pozdrav.

Izvini mozdasam malo dosadan samo nesrazumem sta to neradi kod tebe,
jer kod mene sve funkcionise dvocifreni ili trocifreni sa zarezom ili bez nemam problema.

Mozes napisati i ovako : TextBox4.Value = Format(CDbl(TextBox2) * CDbl(TextBox3.Value), "#,##0.00")

pozdrav

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!